VBスクリプトを使用して添付ファイル付きの電子メールを送信したい

Question

VBスクリプトを使用して添付ファイル付きの電子メールを送信しようとしています。

私のコードに成功作業と私はエラーが親切以下は、この

で私を導く見せている添付ファイルを送信するために、その行を書いていたときに私のコードにコード行を送信しますが、添付ファイルを含めておりません場合は、電子メールを送信しています添付ファイル付きの電子メールを送信するための私のコードですが、 "動作していません"。

Set MyApp = CreateObject("Outlook.Application") 
Set MyItem = MyApp.CreateItem(0) 
With MyItem 
    .To = "saurabh.ad.sharma@accenture.com" 
    .Subject = "Subject" 
    .ReadReceiptRequested = False 
    .HTMLBody = "resport" 
.Attachment = "C:\Users\saurabh.ad.sharma\Desktop\rrr.xlsx" 
End With 
MyItem.Send 

Answer 1

添付ファイル付きのメールを送信する簡単な例では

Dim objOutl 
Set objOutl = CreateObject("Outlook.Application") 
Set objMailItem = objOutl.CreateItem(olMailItem) 
'comment the next line if you do not want to see the outlook window 
objMailItem.Display 
strEmailAddr = "me.me@you.com" 
objMailItem.Recipients.Add strEmailAddr 
objMailItem.Body = "Hi" 
objMailItem.Attachments.Add "file.xml" 
objMailItem.Send 
Set objMailItem = nothing 
Set objOutl = nothing