So einfach ist der Versand von E-Mails per Autohotkey

Das Versenden vom E-Mails aus Autohotkey-Skripten heraus könnte mit einem Kommandozeilen-Tool wie blat.exe realisiert werden. Aber viel paktischer ist es, sich nicht um externe Tools kümmern zu müssen. Hier bietet sich CDOSYS als integrierte Komponente in ASP an. Folgendes Skript habe ich unter Windows 10 und Windows Server 2008 R2 getestet.

to = m***h@w****a.de
cc = cc@m***h.de
bcc = bcc@m***h.de
Subject = Dies ist der Betreff
Body := "Hallo Tester,<br><br>diesen Text sende ich dir als HTML-E-Mail per <b>Autohotkey</b>. `n`n`n"

ahkmail := ComObjCreate("CDO.Message")
ahkmail.From := "mailservice@w****a.de"
ahkmail.To := to
ahkmail.CC := cc
ahkmail.Bcc := bcc
ahkmail.Subject := " " . Subject . " "
ahkmail.HTMLBody := Body . "`n`n" 
sAttach := ""

fields := Object()
fields.smtpserver := "smtp.1und1.de" 
fields.smtpserverport := 587
fields.smtpusessl := False ; False
fields.sendusing := 2 ; cdoSendUsingPort
fields.smtpauthenticate := 1 ; cdoBasic
fields.sendusername := "mailservice@w*****a.de"
fields.sendpassword := "geheimespasswort"
fields.smtpconnectiontimeout := 60
schema := "http://schemas.microsoft.com/cdo/configuration/"

ahkfld := ahkmail.Configuration.Fields

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

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