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.

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.

Rechercher des sujets similaires à "gmail sendusign"