動画内では送信と言っていますけど、メール作成までですね。
今回紹介したコード(ファイル添付の所はセルを指定していたのでコメントアウトしています)
---------------------------
Dim oApp
Set oApp = CreateObject("Outlook.Application")
Set myNameSpace = oApp.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(6)
Dim Wm_ITEM
Set Wm_ITEM = oApp.CreateItem(0)
myFolder.Display
Wm_ITEM.Display
Dim Msg As String
Wm_ITEM.Subject = "風俗の待合室で周りの客を見下す確率" & Format(Now, "mmdd")
Wm_TO = "******@***.co.jp"
Wm_CC = "aa@gmail.com;bb@gmail.com"
Wm_ITEM.To = Wm_TO
Wm_ITEM.cc = Wm_CC
Msg = "本日の確率報告です。" & vbCrLf _
& "ご確認ください。" & vbCrLf & vbCrLf _
& "〇〇部クソが上司か、上司がクソか
Wm_ITEM.Body = Msg
'Wm_ITEM.Attachments.Add Sheets("sheet1").Cells(2, 2).Value & "\" & "1.jpg" ファイル添付
---------------------------
マクロの使用は自己責任でお願いします
#Excel #VBA #マクロ #独学
Негізгі бет 【初心者編】Excelのマクロ(VBA)でOutlookのメールを作る方法!
No video
Пікірлер: 8