メール メール送信するサンプル

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][メール メール送信するサンプル]

Dim objoutlook As Object
Dim objoutlookmsg As Object

Set objoutlook = CreateObject("outlook.apprlication")
Set objoutlookmsg = objoutlook.createitem(0)
Set objattachments = objoutlookmsg.attachments

With objattachments
.Add "ファイル名"
With objoutlookmsg
.Recipients.Add "アドレス"
.Subject = "題名"
.body = "本文"
.send
End With
End With
Set objoutlookmsg = Nothing
Set objoutlook = Nothing

'SendMail使用の場合
vntMailAd = Array("A", "B", "C") '複数同時送信配列
Workbooks(D).SendMail Recipients:=vntMailAd, Subject:="TEST" '題名"TEST"Workbooks(D)送信





Production Japan Import Application. Since 1998