Envoyer un email en code sans outlook, sans mapi, sans socket, et facilement

Commenter

Contenu du snippet

Il faut ajouter les 2 références suivantes :
Microsoft ADO 2.5 minimum
Microsoft CDO pour Windows 2000 ou Microsoft CDO pour Exchange 2000
CDO non disponible sous Windows 9x

Créez un nouveau projet, ajoutez un bouton sur le formulaire, remplacer les parametres et coller le code ci dessous

Notez bien que le choix du serveur SMTP est fortement conditionné par votre connexion internet. Le serveur SMTP de Freesurf par exemple n'accepte pas d'envoyer des Mails si vous n'etes pas connecté actuellement chez eux, sauf si vous envoyer un mail pour un utilisateur freesurf.

Source / Exemple : 


'---------------------------

 Private Sub Command1_Click()
 Dim iMsg As New CDO.Message
 Dim iConf As New CDO.Configuration   
 
 Dim Flds As ADODB.Fields
 Set Flds = iConf.Fields
 
 With Flds
   .Item(cdoSendUsingMethod) = cdoSendUsingPort
   .Item(cdoSMTPServer) = "un serveur SMTP" ' Si vous utilisez la librairie CDO pour exchange
   '.Item(cdoSMTPServerName) = "un serveur SMTP"	' Si vous utilisez la librairie CDO pour Windows 2000
   .Item(cdoSMTPConnectionTimeout) = 10
   .Item(cdoSMTPAuthenticate) = cdoBasic
   .Item(cdoSendUserName) = "Le nom du compte de la messagerie"
   .Item(cdoSendPassword) = "Votre mot de passe"
   .Item(cdoURLProxyServer) = "server:80"
   .Item(cdoURLProxyBypass) = "<local>"
   .Item(cdoURLGetLatestVersion) = True
   .Update
 End With 

 With iMsg
   Set .Configuration = iConf
       .To = """Nom quelconque"" <Adresse email>"
       .From = """Nom quelconque"" <adresse email>"
       .Subject = "Ca marche !"
       .TextBody = "sans probleme"
       '.AddAttachment "C:\un fichier quelconque"
       .Send
 End With

 End Sub

'-----------------------------------------------

A voir également