Sub sendmail
' Process_Globals:
Dim SMTP1 Como SMTP
Dim servidor Como Cadena : server = " smtp.gmail.com "
Dim puerto Como Int : port = 465
Dim nombrecorreoelectrónico Como Cadena : nombrecorreoelectrónico = " xxxxxxxx@gmail.com "
Dim contraseña Como Cadena : password = " xxxxxxxx "
Dim protocolo Como Cadena : protocol = " SMTP "
" crear
SMTP1.Initialize (servidor, el puerto, nombrecorreoelectrónico, contraseña, protocolo)
SMTP1.UseSSL = Verdadero
' sub enviar:
SMTP1.To.Add ( " xxxxxxxx @ gmail . com " )
SMTP1.Subject = " someSubject "
SMTP1.Body = " SomeText "
' '' SMTP1.AddAttachment (File.DirDefaultExternal, "examle.txt")
SMTP1.Send
MsgBox ( " SEND " , "" )
End Sub