Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

4802 / 76735

←次へ　｜　前へ→


	【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