VB6 - VBA Enviar correos electrónicos utilizando el objeto CDO

Autor: lermite222

Publicado el: 18/04/2013

Si la PC host no tiene instalada la aplicación Outlook, puede usar el objeto CDO para enviar sus correos.

La desventaja es que con CDO debe configurarse con la configuración de su servidor, algunos hosts como Gmail requieren autenticación (contraseña) y una conexión segura (SSL)

Esta demo implementa todos los parámetros necesarios.

 Sub DEMO_EnvoiMailCDO () Dim mMessage As Object Dim mConfig Como Object Dim mChps Set mConfig = CreateObject ("CDO.Configuration") mConfig.Load -1 Set mChps = mConfig.Fields With mChps .Item ("// schemas.microsoft.com/ cdo / configuration / sendusing ") = 2 'Adaptador siguiente votante del correo. (por ejemplo, Gmail.) => Hormail "smtp.live.com" .Item ("// schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" 'En principio, 25 de julio de 2015 tout les serveurs. .Item ("// schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'Vous pouvez essayer sans ces trois lignes' Mais si votre serveur demande une authentification, .Item ("// schemas.microsoft.com/ cdo / configuration / smtpauthenticate ") =" 1 ".Item (" // schemas.microsoft.com/cdo/configuration/sendusername ") =" ".Item (" // schemas.microsoft.com/cdo / configuration / sendpassword ") =" MyCodePass "'Si votre serveur demande une connexion sûre (SSL) .Item (" // schemas.microsoft.com/cdo/configuration/smtpusessl ") =" true ".Update End With Set mMessage = CreateObject ("CDO.Message") con mMessage Set .Configuration = mConfig .To = " " .From = " " .Subject = "Le sujet du mail" .TextBody = "Ce mail vous "Envíe el verificador a las macros de lermita" 'Vierta en una pieza, haga clic aquí, haga clic aquí para agregar una copia, un nombre, un clasificador, una imagen, etc.'. Agregue un adjunto 'Chemin et nom complet du fichier à joindre. Enviar End With Set mMessage = Nothing' Pour un autre message, pas besoin de tou reconfigurador, se muestra un mensaje nuevo de "message à chaque fois". Establecer mMessage = CreateObject ("CDO.Message") con mMessage Set .Configuration = mConfig .To = " " .From = " " .Subject = "C'est pour le deuxième test d'envoi mail ".TextBody =" Ce mail vous est envoyer pour tester la macros de lermite "& Chr (13) _ &" et voir si le deuxième message est bien passer. " 'Verter unir una pieza, un fichier, un classeur, una imagen, etc.' .AddAttachment 'Chemin et nom complete du fichier à joindre. Send End With Set mMessage = Nothing' Libère les ressources Set mConfig = Nothing Set mChps = Nothing End Sub 

Puedes descargar el archivo demo (Excel):

Enviar correos electrónicos utilizando CDO.xls