[vbs] gmail sender

Soyez le premier à donner votre avis sur cette source.

Vue 5 701 fois - Téléchargée 338 fois

Description

En Réponse à des questions fréquament posés dans les forums et dans les commentaries voila je poste ce petit script qui va peut-être répondre presque à tous vos questions comme par exemple: comment ajouter un champ CC ou bien un champ BBC avec ajout d'une pièce-jointe et l'envoyer automatiquement.
Description de ce VBscript:
Envoyer un message électronique HTML avec fichier joint via les serveurs Gmail en utilisant l'authentification SMTP et SSL.
C'est comme tout autre courrier, mais exige que vous définissez le port SMTP à 465 et le CDO utilise le SSL

Source / Exemple :


'Envoyer un message électronique HTML avec fichier joint via les serveurs Gmail en utilisant l'authentification SMTP et SSL. 
'C'est comme tout autre courrier, mais exige que vous définissez le port SMTP à 465 le CDO utilise le SSL
'By Hackoo © 2011
On Error Resume Next
Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory. 
Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network). 
Const cdoAnonymous = 0 'Do not authenticate
Const cdoBasic = 1 'basic (clear-text) authentication
Const cdoNTLM = 2 'NTLM
sFilePath="C:\SSLGmail.rar" 'Path of the Attached File
Set objMessage = CreateObject("CDO.Message") 
objMessage.Subject = "Example CDO Message" 
objMessage.From = """Me"" <Mymail@gmail.com>" 'change this to yours
objMessage.To = "dest@yahoo.fr" 'change this To
objMessage.CC = "dest2@yahoo.fr" 'change this CC means : Carbon Copy
objMessage.BCC = "dest3@gmail.com" 'change this BCC means : Blink Carbon Copy
sBody = "<center><font size=4 FACE=Tahoma Color=red>This is some sample message in HTML.<br> It was sent using SMTP authentication and SSL."
objMessage.HTMLBody = sBody  & _
     "<center><font size=4 FACE=Tahoma Color=red>" & _
      messageHTML & _ 
     "<br><br><img src=http://photomaniak.com/upload/out.php/i1102064_IDNlogo.gif>" 
objMessage.AddAttachment sFilePath   
'==This section provides the configuration information for the remote SMTP server.

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 

'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" 'SMTP SERVER of GMAIL must be inchanged

'Type of authentication, NONE, Basic (Base64 encoded), NTLM
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic

'Your UserID on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "YourLoginGmail@gmail.com" 'change this to yours

'Your password on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "YourPasswordGmail" 'change this to yours

'Server port (typically 25 and 465 in SSL mode for Gmail)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 'don't change this

'Use SSL for the connection (False or True)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

objMessage.Configuration.Fields.Update

'==End remote SMTP server configuration section==

objMessage.Send

If Err.Number <>0 Then
			MsgBox Err.Description,16,"Erreur"
			msgbox "le mail n'a pas pu être envoyé !",16,"Information"
		Else
		msgbox "Le mail a été bien envoyé !",64,"Information"
	End If
		On Error GoTo 0

Conclusion :


Vos Remarques et vos commentaires sont les Bienvenus !

Codes Sources

A voir également

Ajouter un commentaire Commentaires
jpbauer Messages postés 9 Date d'inscription dimanche 20 juin 2004 Statut Membre Dernière intervention 21 avril 2017
13 juin 2012 à 23:53
Bonjour

Une question de néophyte, j'essaye d'utiliser ce code mais lorsque l'on arrive sur la ligne CDO.Message, j'ai une erreur qui dit type utilisateur non défini.

Lorsque je cherche sur internet sur le sujet on parle d'un menu dans "outils" qui n'existe pas dans la version Excel 2003 que j'ai. Sauriez-vous me dire ce qu'il faut ajouter et comment dans cette version d'excel

Merci par avance
Einstein75 Messages postés 16 Date d'inscription vendredi 6 août 2010 Statut Membre Dernière intervention 9 juillet 2011
5 juil. 2011 à 09:05
Excellent Code comme d'habitude Hackoo !,il marche Nickel 10/10 ! je l'ai tester, Tous les fonctions là-dedans fonctionnent parfaitement comme les destinataires CC : "Copy Carbon" et BCC : "Blink Copy Carbon" , la piéce-jointe, le message en HTML que je l'ai modifié un peu afin de mettre ma propre signature en image :) et surtout j'ai aimé aussi le code dans le commentaire pour le TEST DE CONNEXION INTERNET ET SMTP DE GMAIL.
Pour moi j'aurais bien aimé plus que tu combine ce dernier script avec le premier pour avoir un test de connexion avant d'envoyer l'e-mail.Encore un Grand Merci pour ces 2 codes qui sont trés utiles et faciles à les modifier et à les combiner avec d'autres codes !
cs_hackoo Messages postés 92 Date d'inscription mercredi 3 avril 2002 Statut Membre Dernière intervention 29 juillet 2013
4 juil. 2011 à 21:37
@PEROXYDE
Tout d'abord il faut avoir un vrai compte de messagerie chez Gmail et il faut changer dans la ligne 38 "YourLoginGmail@gmail.com" par votre compte gmail et la ligne 42 "YourPasswordGmail" par votre mot de passe et il faut bien vérifier les adresses e-mails des destinataires sinon l'e-mail ne sera pas envoyé si par hazard tous ces conditions sont satisfaites et l'erreur persiste alors il faut bien vérifier la disponibilté du serveur SMTP du GMAIL càd votre connexion Internet et voici un script pour tester votre connexion Internet et la disponiblité du serveur smtp.gmail.com

'-------------TEST DE CONNEXION INTERNET ET SMTP DE GMAIL-----------
strComputer = "smtp.gmail.com"
MsgTitre = "TEST DE CONNEXION INTERNET ET SMTP DE GMAIL © Hackoo © 2011"
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}!\").ExecQuery("select * from Win32_PingStatus where address = '" & strComputer & "'")
For Each objStatus in objPing
If objStatus.Statuscode = 0 Then
msgbox "TEST SMTP DE GMAIL EST OK . VOUS ETES CONNECTE A INTERNET ET LE SMTP DE GMAIL EST DISPONIBLE ! " & objStatus.Statuscode,64,MsgTitre
else
msgbox "TEST SMTP DE GMAIL EST NO OK . VOUS N'ETES PAS CONNECTE A INTERNET ET LE SMTP DE GMAIL N'EST PLUS DISPONIBLE EN CE MOMENT !" & objStatus.Statuscode,16,MsgTitre
End If
Next
cs_peroxyde Messages postés 2 Date d'inscription mercredi 9 août 2006 Statut Membre Dernière intervention 4 juillet 2011
4 juil. 2011 à 14:24
Le message n'a pas pu être envoyé vers le serveur SMTP. Le code d'erreur de transport était 0x80040127. la réponse du serveur était not available

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.