Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


51257 / 76733 ←次へ | 前へ→

【30347】メールに添付ファイルを挿入したいのです
質問  記録マクロに毛が3本  - 05/10/25(火) 17:37 -

引用なし
パスワード
   下記のコードでメール本体の作成は出来ましたが
添付ファイルを付けたいのに何をどうすれば良いのか
過去ログを見たのですが送信ソフトを使わないのや
「Outlook」なので判りませんでした

Sub meill_test()
Workbooks("確認表_作業用.xls").Sheets("返却").Activate
Range("A:A").Select
Selection.ClearContents
Range("A1").Select
'------------------------------------------------
'アドレス & 件名
Workbooks("確認表_作業用.xls").Sheets("返却").Activate
ActiveCell = "To: " & Adr
ActiveCell.Offset(1, 0).Activate
ActiveCell = "Subject: うっそぴょ〜〜〜ん^^v"
ActiveCell.Offset(1, 0).Activate
ActiveCell = "X-Unsent: 1"
ActiveCell.Offset(2, 0).Activate
'------------------------------------------------
'本文
Workbooks("確認表_作業用.xls").Sheets("返却").Activate
ActiveCell = "さ〜と〜く〜〜〜ん (⌒▽⌒)ノ"
ActiveCell.Offset(2, 0).Activate
ActiveCell = "(/^-^)o日日o(^0^|) 飲みにいこ〜ね〜〜〜 (/^-^)o日日o(^0^|)"
ActiveCell.Offset(2, 0).Activate
ActiveCell = "逃がさへんで〜 (#▼_▼)y-゜゜゜"
'##########################################################
'#####         保存のパート         #####
'##########################################################
Workbooks("確認表_作業用.xls").Sheets("返却").Activate
Sheets("返却").Copy
ActiveWorkbook.SaveAs Filename:= _
  "C:\WORK\わははは.eml", FileFormat:=xlTextPrinter, CreateBackup:=False
End Sub

3 hits

【30347】メールに添付ファイルを挿入したいのです 記録マクロに毛が3本 05/10/25(火) 17:37 質問

51257 / 76733 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free