SMTPとAutohotkeyを使用して電子メール（gmail）を送信する必要があります。

私はWindows 7で以下のコードを使用していましたが、すべてが機能していましたが、Windows 10で同じコードを使用すると、動作が停止し、下にあるエラーが表示されました。 Windows 7で私のために働くために使用SMTPとAutohotkeyを使用して電子メール（gmail）を送信する必要があります。

コード：窓、それは私に次のエラーを与えている10では

pmsg := ComObjCreate("CDO.Message") 
pmsg.From := """John Agius"" <[email protected]>" 
pmsg.To := "[email protected]" 
pmsg.BCC := "" 
pmsg.CC := "" 
pmsg.Subject := "Message/Note" 
pmsg.TextBody :=emailtosomeone 
fields := Object() 
fields.smtpserver := "smtp.gmail.com" ; specify your SMTP server 
fields.smtpserverport := 465 ; 25 
fields.smtpusessl := True ; False 
fields.sendusing := 2 ; cdoSendUsingPort 
fields.smtpauthenticate := 1 ; cdoBasic 
fields.sendusername := "[email protected]" 
fields.sendpassword := "password" 
fields.smtpconnectiontimeout := 60 
schema := "http://schemas.microsoft.com/cdo/configuration/" 
pfld := pmsg.Configuration.Fields 
For field,value in fields 
pfld.Item(schema . field) := value 
pfld.Update() 
pmsg.Send()

。

エラー：0x800CCE05 ソース：CDO.Message.1 説明：要求された本体部がこのメッセージのHelpFile（NULL） HelpContextプロパティに見つかりませんでした。具体的には0から

。 ; bla bla bla作業コード -------> pmsg.From：= "" "John Agius" ""

誰かを教えてくれませんか？私は仕事のためにこれが本当に必要です。

おかげ

ジョン・アギウス

出典

2017-01-30 John Agius

可能な複製（http://stackoverflow.com/questions/3279523/base64-images-to-gmail） – rds

はまあ、エラーが不足しているボディについて話しています。あなたのメール（TextBodyまたはHtmlBody）に実際のテキストメッセージがありません。変数emailtosomeoneは定義されていますか？
このコードを試してみてください、[GmailにBase64での画像]の

pmsg   := ComObjCreate("CDO.Message") 
pmsg.From  := """AHKUser"" <[email protected]>" 
pmsg.To   := "[email protected]" 
pmsg.BCC  := "" ; Blind Carbon Copy, Invisable for all, same syntax as CC 
pmsg.CC   := "Someb[email protected], [email protected]" 
pmsg.Subject := "Message_Subject" 

;You can use either Text or HTML body like 
pmsg.TextBody := "Message_Body" 
;OR 
;pmsg.HtmlBody := "<html><head><title>Hello</title></head><body><h2>Hello</h2><p>Testing!</p></body></html>" 


sAttach   := "Path_Of_Attachment" ; can add multiple attachments, the delimiter is | 

fields := Object() 
fields.smtpserver := "smtp.gmail.com" ; specify your SMTP server 
fields.smtpserverport  := 465 ; 25 
fields.smtpusessl  := True ; False 
fields.sendusing  := 2 ; cdoSendUsingPort 
fields.smtpauthenticate  := 1 ; cdoBasic 
fields.sendusername := "[email protected]" 
fields.sendpassword := "your_password_here" 
fields.smtpconnectiontimeout := 60 
schema := "http://schemas.microsoft.com/cdo/configuration/" 


pfld := pmsg.Configuration.Fields 

For field,value in fields 
    pfld.Item(schema . field) := value 
pfld.Update() 

Loop, Parse, sAttach, |, %A_Space%%A_Tab% 
    pmsg.AddAttachment(A_LoopField) 
pmsg.Send()

https://autohotkey.com/board/topic/60813-cdo-com-email-delivery-ahk-l/#p403177

出典

2017-01-31 17:08:10 Forivin

感謝何らかの理由で、私はこのコードを編集した後、うまくいきました。私の古いコードさえも動作し始めました。何が起こったのか分かりません。 –

@JohnAgius問題が再現できない場合は、質問の削除を検討してください。一方、この回答が問題の解決に役立った場合は、それを受け入れてください。結局のところ、これは良いコード例です。 – MCL

SMTPとAutohotkeyを使用して電子メール（gmail）を送信する必要があります。

答えて

関連する問題