VBS client mail
Florent
-
miro_marou Messages postés 175 Date d'inscription Statut Membre Dernière intervention -
miro_marou Messages postés 175 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
voila je fais appelle a tout programmeur en visual basic qui pourrait m'aider,
je recherche un tutoriel pour me créer un client mail , que je puisse envoyer un message avec une pièces joints.
merci de votre compréhension merci .
voila je fais appelle a tout programmeur en visual basic qui pourrait m'aider,
je recherche un tutoriel pour me créer un client mail , que je puisse envoyer un message avec une pièces joints.
merci de votre compréhension merci .
A voir également:
- VBS client mail
- Vbs windows - Accueil - Optimisation
- Filezilla client - Télécharger - Téléchargement & Transfert
- Publipostage mail - Accueil - Word
- Windows live mail - Télécharger - Mail
- Formate pour taxer client frigo vide ✓ - Forum Matériel & Système
1 réponse
Set Mail = CreateObject("CDO.Message")
With Mail
.From = "de@hh.cc"
.To = "à@dfdf.fd"
.subject = "sujet"
.TextBody = "texte"
.AddAttachment ("fichier")
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") ="2"
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp server"
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = "smtp port"
.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = true
.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true
.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mon e_mail user name"
.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mon e_mail password"
.Configuration.Fields.Update
.Send
End With
With Mail
.From = "de@hh.cc"
.To = "à@dfdf.fd"
.subject = "sujet"
.TextBody = "texte"
.AddAttachment ("fichier")
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") ="2"
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp server"
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = "smtp port"
.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = true
.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true
.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mon e_mail user name"
.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mon e_mail password"
.Configuration.Fields.Update
.Send
End With
