AHK: Скрипт для массовой рассылки писем из xlxs файла.

#n::
#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
#Warn  ; Recommended for catching common errors.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.


Loop, read, C:\Docs\mail_list.txt
{
    sTo        := %A_LoopReadLine%
    sFrom      := "мое мыло@gmail.com"
    sSubject := "Message_Subject"
    sBody := "Message_Text"
    sAttach := "" ;"Path_Of_Attachment" ; can add multiple attachments, the delimiter is [color=red]|[/color]

    sServer   := "smtp.gmail.com" ; specify your SMTP server
    nPort     := 465 ; 25
    bTLS      := True ; False
    nSend     := 2   ; cdoSendUsingPort
    nAuth     := 1   ; cdoBasic
    sUsername := "мое мыло@gmail.com"
    sPassword := "пассворд"

    pmsg :=   ComObjCreate("CDO.Message")
    pcfg :=   pmsg.Configuration
    pfld :=   pcfg.Fields

    pfld.Item(здесь должна быть ссылка но с ней сообщение  не создается) := nSend
    pfld.Item(здесь должна быть ссылка но с ней сообщение  не создается) := 60
    pfld.Item(здесь должна быть ссылка но с ней сообщение  не создается) := sServer
    pfld.Item(здесь должна быть ссылка но с ней сообщение  не создается) := nPort
    pfld.Item(здесь должна быть ссылка но с ней сообщение  не создается) := bTLS
    pfld.Item(здесь должна быть ссылка но с ней сообщение  не создается) := nAuth
    pfld.Item(здесь должна быть ссылка но с ней сообщение  не создается) := sUsername
    pfld.Item(здесь должна быть ссылка но с ней сообщение  не создается) := sPassword
    pfld.Update()

pmsg.From := sFrom
pmsg.To := sTo
pmsg.Subject := sSubject
pmsg.TextBody := sBody
Loop, Parse, sAttach, |, %A_Space%%A_Tab%
  pmsg.AddAttachment := A_LoopField
pmsg.Send()
    
} 

sTo        := %A_LoopReadLine%