gmail sendusign = 2 Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
i
infodes
Membre fidèle
Membre fidèle
Messages : 181
Inscrit le : 28 novembre 2013
Version d'Excel : 2007fr

Message par infodes » 4 janvier 2017, 16:36

Bonjour, je sollicite encore votre aide après plusieurs recherche qui ne m'ont rien apportées. Nous avons changer la messagerie de outlook à gmail et je n'arrive pas à envoyer de message en VBA par Gmail. J'ai toujours une erreur relier au "sendusing = 2". J'ai essayer de trouver ce que veux dire le 2 mais pas de réponse. Sur microsoft, ils disent d'utiliser 1 ou 2 mais ça ne change rien.

Il sert à quoi le 2?

Voici le bout de code (partiel) que j'utilise et qui me semble le plus simple dans tout veux que j'ai vu.

Set mConfig = CreateObject("CDO.Configuration")

mConfig.Load -1
Set mChps = mConfig.Fields
With mChps
.Item("[http://schemas.microsoft.com/cdo/config ... /sendusing]") = 3
.Item("[http://schemas.microsoft.com/cdo/config ... smtpserver]") = "smtp.gmail.com"
.Item("[http://schemas.microsoft.com/cdo/config ... serverport]") = 25
.Item("[http://schemas.microsoft.com/cdo/config ... thenticate]") = "1"
.Item("[http://schemas.microsoft.com/cdo/config ... ndusername]") = "mon adresse gmail"
.Item("[http://schemas.microsoft.com/cdo/config ... ndpassword]") = "monpassword"
.Item("[http://schemas.microsoft.com/cdo/config ... smtpusessl]") = "true"
.Update
End With

adresseenvoyeur = InputBox("Adresse de l'émetteur du message")
recepteur = InputBox("Adresse du récepteur")
copie = InputBox("Adresse du récepteur de la copie du message(falcutatif)")
sujet = InputBox("Sujet du message")
message = InputBox("Ton message")
PJ = InputBox("Veux tu une pièce jointe si oui marque le chemin çi dessous")
MsgBox ("L'émetteur du message : " & (adresseenvoyeur) & (Chr(13)) & "Le recepteur : " & (recepteur) & (Chr(13)) & "Le recepteur de la copie du message : " & (copie) & (Chr(13)) & "Le sujet du message : " & (sujet) & (Chr(13)) & "Ton message envoyé : " & (message) & (Chr(13)) & "Pièce jointe au message : " & (PJ) & (Chr(13)) & "Ton message est prêt à etre envoyé.")

Set mMessage = CreateObject("CDO.Message")
With mMessage
Set .Configuration = mConfig
.From = (adresseenvoyeur)
.To = (recepteur)
.CC = (copie)
.Subject = (sujet)
.TextBody = (message)
.Send
End With
Set mMessage = Nothing

Set mConfig = Nothing
Set mChps = Nothing

Merci de votre aide.
Avatar du membre
thev
Membre impliqué
Membre impliqué
Messages : 2'343
Appréciations reçues : 190
Inscrit le : 13 juin 2016
Version d'Excel : 2013 FR 64 bits

Message par thev » 5 janvier 2017, 15:42

Bonjour,

Le port 25 n'est pas utilisable par le serveur smtp.gmail.com car il est en général bloqué par le FAI. Pour que ça fonctionne, il faut utiliser le port 465.

Mettre
Item("[http://schemas.microsoft.com/cdo/configuration/sendusing]") = 2
ci-dessous exemple de code qui fonctionne :
Sub EnvoiMail()
    'Add the Project Reference Microsoft CDO WINDOWS FOR 2000
    Dim cdo_msg As New CDO.Message
    
    'configuration message
     cdo_msg.Configuration.Fields(cdoSMTPServer) = "smtp.gmail.com"
    cdo_msg.Configuration.Fields(cdoSMTPConnectionTimeout) = 60
    cdo_msg.Configuration.Fields(cdoSendUsingMethod) = cdoSendUsingPort
    cdo_msg.Configuration.Fields(cdoSMTPServerPort) = 465
    cdo_msg.Configuration.Fields(cdoSMTPAuthenticate) = cdoBasic
    cdo_msg.Configuration.Fields(cdoSMTPUseSSL) = True
    cdo_msg.Configuration.Fields(cdoSendUserName) = "xxxxxxxxxx@gmail.com"
    cdo_msg.Configuration.Fields(cdoSendPassword) = "ppppppppp"
    cdo_msg.Configuration.Fields.Update
    
    'remplissage et envoi message
     cdo_msg.To = "adresse1"
    cdo_msg.From = "adresse2"
    cdo_msg.Subject = "filename Sent to www.???.com "
    cdo_msg.TextBody = "File FTP LOG ATTACHED."
    cdo_msg.AddAttachment ("C:\Users\nnnnnn\Documents\classeur1.xls")
    cdo_msg.Send
    
    'libération objet message
     Set cdo_msg = Nothing
End Sub
i
infodes
Membre fidèle
Membre fidèle
Messages : 181
Inscrit le : 28 novembre 2013
Version d'Excel : 2007fr

Message par infodes » 9 janvier 2017, 18:25

ok ça fonctionne. Merci pour le code, je vais voir pour l'Adapter à ce que je veux.
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message