Masquer adresse mail d'envoi

[David]

Bonjour à tous,

J'envois des mails automatique et j'aimerai que l'adresse d'envoi soit marqué nepasrépondre, mais quand je mets .From ="nepasrepondre@gmail.com" l'adresse qui apparaît est quand même l'adresse d'envoi, si je fais répondre c'est l'adresse d'envoi qui apparait, une idée?

Dim iConf As Object
Dim Flds
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
With Flds
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "toto@gmail.com"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxxxx"
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
    .Update
End With
     strbody = "Validation " & Region & "." & vbNewLine & vbNewLine & _
               "Cordialement" & vbNewLine & vbNewLine


    Dim iMsg
    Set iMsg = CreateObject("CDO.Message")
 
With iMsg
    Set .Configuration = iConf
    .To = "" & Email & ""
    .cc = "" & Emailcc & ""
    .From = "nepasrepondre@gmail.com"
    .Subject = "Validation " & Region
    .TextBody = strbody
    .AddAttachment (ThisWorkbook.Path & "/validation " & Region & " au " & date_valid & ".xlsx")
    .Send
End With

Merci

 

[herve62]

Re : Masquer adresse mail d'envoi

J'en ai plusieurs mais là avec mon portable jai que ça , vieux !!! mais bon
A essayer de tirer la substantive moelle

 

[David]

Re : Masquer adresse mail d'envoi

Bonjour,

Merci pour le fichier, mais ça passe par oultook et je n'ai pas trouvé dedans comment masquer l'adresse mail d'envoi.

@+

 

[David]

Re : Masquer adresse mail d'envoi

Bon je ne comprend pas pourquoi, quoi que je fasse ça met l'adresse toto@gmail.com même si je mets

.From = """NePasRepondre"" <nepasrepondre@gmail.com>"

Pourtant dans l'expéditeur on voit bien NePasRepondre mais l'adresse mail est toto@gmail.com

 

[herve62]

Re : Masquer adresse mail d'envoi

Je rentre de vacances et voit que c'est pas résolu
Normalement ce n'est pas possible car chaque FAI à son propre NOREPLY et comme il faut en créer un , tu peux pas , t’as pas l’option pour le faire
sauf si t'as ton propre serveur !!!
J'avais vu une astuce en créant une adresse et ensuite paramétrer OUTLOOK ( POP et SMTP bidon) j'ai testé , ca marche pas

 

[David]

Re : Masquer adresse mail d'envoi

Bonjour herve62

Merci pour ta réponse, maintenant que tu le dis ça parait évident xD. Mais j'ai mon propre serveur, je vais donc faire avec, je me demande pourquoi je n'y ai pas pensé avant!! ca ne sera pas gmail, mais ce n'est pas très grave.

Merci

 

[herve62]

Re : Masquer adresse mail d'envoi

Bonjour tous , David
Je ne me rappelle plus ou j'avais lu cette astuce
Mais mon test d'hier consistait à créer un compte ( orange) tout simple
puis paramétrer Outlook avec des noms bidons dans certains champs
sauf celui montant pour qu'il puisse tester la connexion avec le serveur Orange ( POP)
le Pb c'est que les messages étaient redirigés vers un dossier que j'avais dû déclarer ( autre que "dossiers personnels")
donc au début je pensais que ça marchait .. mais non !!!
Sinon je sais que les serveurs ont l'option de messagerie : NOREPLY ou équiv. , hélas je ne peux en dire plus
Bon courage