Gmail sendusign = 2
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/configuration/sendusing]") = 3
.Item("[http://schemas.microsoft.com/cdo/configuration/smtpserver]") = "smtp.gmail.com"
.Item("[http://schemas.microsoft.com/cdo/configuration/smtpserverport]") = 25
.Item("[http://schemas.microsoft.com/cdo/configuration/smtpauthenticate]") = "1"
.Item("[http://schemas.microsoft.com/cdo/configuration/sendusername]") = "mon adresse gmail"
.Item("[http://schemas.microsoft.com/cdo/configuration/sendpassword]") = "monpassword"
.Item("[http://schemas.microsoft.com/cdo/configuration/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.
- Messages
- 4'092
- Excel
- 2021 FR 64 bits
- Inscrit
- 13/06/2016
- Emploi
- bénévole associations Goutte d'Or
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
ok ça fonctionne. Merci pour le code, je vais voir pour l'Adapter à ce que je veux.