|
下記のコードでメール本体の作成は出来ましたが
添付ファイルを付けたいのに何をどうすれば良いのか
過去ログを見たのですが送信ソフトを使わないのや
「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
|
|