|
遅くなりましたが質問させていただいたソースコードを掲載します
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
よろしくお願いします
|
|