Soy Nuevo en este Foro y recurro a ustedes para ver si me pueden apoyar con este código que encontré en la red, para enviar a través de Gmail, hasta el momento ya funciona el envio de correo, pero no logro hacer que se adjunte un archivo que se encuentra en c:\temp\llave.zip, el Ejecutable del Autohotkey tambien se encuentra en la misma carpeta. Espero me piedan apoyar. de antemano les agradezco.
Code: Select all
;Code: [Select all] [Expand] [Download] GeSHi © Codebox Plus
Pmsg := ComObjCreate("CDO.Message")
pmsg.From := """Pionero"" <[email protected]>"
pmsg.To := "[email protected]"
pmsg.BCC := "" ; Blind Carbon Copy, Invisible for all, same syntax as CC
pmsg.CC := "" ; [email protected], [email protected]
pmsg.Subject := "Envio Llave-123"
;pmsg.TextBody := ""
pmsg.HtmlBody := "<html><head><title>Hello</title></head><body><table border='1'><tr><td>row 1, cell 1</td><td>row 1, cell 2</td></tr><tr><td>row 2, cell 1</td><td>row 2, cell 2</td></tr></table> </body></html>"
;sAttach := "" ; 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 := "contraseña"
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(Field)
; pmsg.AddAttachment := sAttach
pmsg.Send()
return
Nelson