Envoi mail automatique
Résolu/Fermé
tropare
Messages postés
84
Date d'inscription
mercredi 21 mai 2008
Statut
Membre
Dernière intervention
9 mars 2009
-
30 mai 2008 à 17:16
firehc - 12 août 2008 à 14:56
firehc - 12 août 2008 à 14:56
A voir également:
- Envoi mail automatique
- Yahoo mail - Guide
- Message automatique thunderbird - Guide
- Réponse automatique outlook - Guide
- Programmer envoi mail gmail - Guide
- Sommaire automatique word - Guide
2 réponses
tropare
Messages postés
84
Date d'inscription
mercredi 21 mai 2008
Statut
Membre
Dernière intervention
9 mars 2009
17
3 juin 2008 à 10:45
3 juin 2008 à 10:45
g trouvé pr ceux que sa intereseré je mé le code
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "votre adresse mail ou nom"
objEmail.To = "adresse mail de destination"
objEmail.Subject = "le sujet du message"
objEmail.Textbody = "le message"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Name or IP of Remote SMTP Server
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "votre serveur smtp"
'Server port (typically 25)
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "votre adresse mail ou nom"
objEmail.To = "adresse mail de destination"
objEmail.Subject = "le sujet du message"
objEmail.Textbody = "le message"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Name or IP of Remote SMTP Server
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "votre serveur smtp"
'Server port (typically 25)
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send
