E-Mail versenden per Autohotkey

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()

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert.

Diese Website verwendet Akismet, um Spam zu reduzieren. Erfahre mehr darüber, wie deine Kommentardaten verarbeitet werden.