Excel VBA質問箱 IV

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

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


4799 / 76732 ←次へ | 前へ→

【77548】Re:メール自動作成マクロの質問です
発言  SHO  - 15/10/21(水) 10:00 -

引用なし
パスワード
   遅くなりましたが質問させていただいたソースコードを掲載します


Sub MAKE_MAIL_ITEM()

Dim oApp As Object
Dim myNameSpace As Object
Dim myFolder As Object

Dim objMAIL As Object
Dim strMOJI As String

Set oApp = CreateObject("Outlook.Application")

Set myNameSpace = oApp.GetNameSpace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(6)
myFolder.Display

Set objMAIL = oApp.CreateItem(0)
objMAIL.To = ""
objMAIL.subject = ""
'objMAIL.Attachments.Add "C:\あああ.xls"

strMOJI = ""

objMAIL.body = strMOJI
objMAIL.Display

Set oApp = Nothing
Set myFolder = Nothing
Set objMAIL = Nothing


End Sub


よろしくお願いします

0 hits

【77523】メール自動作成マクロの質問です SHO 15/10/19(月) 15:20 質問[未読]
【77548】Re:メール自動作成マクロの質問です SHO 15/10/21(水) 10:00 発言[未読]
【77556】Re:メール自動作成マクロの質問です γ 15/10/21(水) 20:54 発言[未読]
【77565】Re:メール自動作成マクロの質問です SHO 15/10/23(金) 17:03 発言[未読]
【77568】Re:メール自動作成マクロの質問です γ 15/10/23(金) 21:02 発言[未読]
【77570】Re:メール自動作成マクロの質問です γ 15/10/24(土) 11:09 発言[未読]
【77573】Re:メール自動作成マクロの質問です γ 15/10/25(日) 23:52 発言[未読]
【77574】Re:メール自動作成マクロの質問です SHO 15/10/26(月) 9:41 お礼[未読]

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