Microsoft 365 Hotmail.com envoi de mails avec pièces jointes

Usine à gaz · 7 Juillet 2020

Bonjour à toutes et à toutes,
J'espère que vous allez bien.

Je voudrais automatiser mes envois de mails avec pièces jointes (1 pièce jointe par mail) avec Hotmail.com.
J'ai tenté mais c'est bien trop costaud pour mes petites connaissances. j'ai fait des recherches sans succès.

Actuellement
Nous avons environ 300 Clients
Chaque mois j'envoie un mail à chaque Client avec la pièce jointe correspondant à sa situation (facture ou relevé)

1 - copie de l'adresse mail du Client dans le mail d'envoi,
2 - copie du texte correspondant au fichier à joindre (facture ou relevé),
3 - joindre le fichier PDF,
4 - envoi
Le tout pour + de 300 mails … soit + 300 fois X par 4 actions = 1200 actions … c'est fastidieux et très long.

Je joins le fichier test qui je pense explique clairement ma demande.
Une solution serait super utile pour moi vraiment.
Un grand merci déjà pour m'avoir lu et ouvert mon fichier
Bonne fin de journée,
lionel,

Usine à gaz · 7 Juillet 2020

"hoh !! puré je sens que je vais me foutre dedans encore avec ton truc"
lol j'adore

patricktoulon · 7 Juillet 2020

re
teste ca en adaptant les adress mail et le chemin du fichier pdf en attachement
pour le moment laisse tontonlabidouille
et met ton addresse mail comme destinataire
et va voir dans ta boite mail

VB:

Sub CDOTRUCMUCHE()
    Dim iMsg As Object, iConf As Object, strbody As String, Flds As Variant

    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")

    iConf.Load -1    ' CDO Source Defaults
    Set Flds = iConf.Fields
    With Flds
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "tontonLaBidouille@hotmail.com"    'ADAPTE ICI
        '.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        '.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "GMail password"
        '.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.topnet.tn"

        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Update
    End With

    strbody = "bonjour je suis une tete de lard je n'ecoute jamais "

    With iMsg
        Set .Configuration = iConf
        .From = """TON ADRESSE MAIL ICI "    'ADAPTE ICI
        .To = "destinataire @blabla"    'ADAPTE ICI
        .CC = ""
        .BCC = ""

        .Subject = "AVIS A LA POPULASSE "
        .TextBody = strbody
        '.AddAttachment "c:\mondossier\monfichier.pdf" '  'ADAPTE ICI
        .Send
    End With
    Set iMsg = Nothing: Set iConf = Nothing: Set Flds = Nothing
End Sub

Usine à gaz · 7 Juillet 2020

Bon sang super merci Patrick .. Je teste dès que j'ai fini de bosser et je te dirai

Usine à gaz · 7 Juillet 2020

Re-Bjr,

ça beug sur : .Send

VB:

Sub CDOTRUCMUCHE()
    Dim iMsg As Object, iConf As Object, strbody As String, Flds As Variant

    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")

    iConf.Load -1    ' CDO Source Defaults
    Set Flds = iConf.Fields
    With Flds
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "isitel@hotmail.com"    'ADAPTE ICI
        '.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        '.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "GMail password"
        '.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.topnet.tn"

        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Update
    End With

    strbody = "bonjour je suis une tete de lard je n'ecoute jamais "

    With iMsg
        Set .Configuration = iConf
        .From = """isitel@hotmail.com"    'ADAPTE ICI
        .To = "isitel@hotmail.com"    'ADAPTE ICI
        .CC = ""
        .BCC = ""

        .Subject = "pour l'usine à gaz"
        .TextBody = strbody
        .AddAttachment "C:\Users\lionel\Desktop\Dossier isiTel\isiTel1\01 ImmobRdV NF\03 Factures faites\01 classer_envoyer_date\Usine a gaz\usine a gaz facture.pdf" '  'ADAPTE ICI
        .Send
    End With
    Set iMsg = Nothing: Set iConf = Nothing: Set Flds = Nothing
End Sub

Je regarde où je peux avoir fait une erreur.

patricktoulon · 7 Juillet 2020

A OUI PARCE QUE " ca bug sur send" ne veux rien dire pour moi
et en plus tu met les meme email
tiens teste plutot ca
comme tel ne change rien

VB:

Sub CDOTRUCMUCHE()
    Dim iMsg As Object, iConf As Object, strbody As String, Flds As Variant

    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")

    iConf.Load -1    ' CDO Source Defaults
    Set Flds = iConf.Fields
    With Flds
        '.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
        '.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "isitel@hotmail.com"    'ADAPTE ICI
        '.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        '.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "GMail password"
        '.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.topnet.tn"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Update
    End With

    strbody = "bonjour je suis une tete de lard je n'ecoute jamais "

    With iMsg
        Set .Configuration = iConf
        .From = "totonlabidouille@hotmail.com"    'ADAPTE ICI
        .To = "isitel@hotmail.com"    'ADAPTE ICI
        .CC = ""
        .BCC = ""

        .Subject = "pour l'usine à gaz"
        .TextBody = strbody
        .AddAttachment "C:\Users\lionel\Desktop\Dossier isiTel\isiTel1\01 ImmobRdV NF\03 Factures faites\01 classer_envoyer_date\Usine a gaz\usine a gaz facture.pdf" '  'ADAPTE ICI
        .Send
    End With
    Set iMsg = Nothing: Set iConf = Nothing: Set Flds = Nothing
End Sub

Usine à gaz · 7 Juillet 2020

Usine à gaz · 7 Juillet 2020

lol même beug :
.Subject = "pour l'usine à gaz"
.TextBody = strbody
.AddAttachment "C:\Users\lionel\Desktop\Dossier isiTel\isiTel1\01 ImmobRdV NF\03 Factures faites\01 classer_envoyer_date\Usine a gaz\usine a gaz facture.pdf" ' 'ADAPTE ICI
.Send

Je n'ai touché à rien juste copier/coller

patricktoulon · 7 Juillet 2020

c'est quoi l'erreur ?
puré comme a chaque fois il faut te tirer les verts du nez

Usine à gaz · 7 Juillet 2020

dsl, je travaille en même temps et je n'y ai pas pensé :

patricktoulon · 7 Juillet 2020

bloque le CC et BCC et l'attachement et re teste

Usine à gaz · 7 Juillet 2020

Je dois sortir pour 1/2 heure

patricktoulon · 7 Juillet 2020

Usine à gaz · 7 Juillet 2020

ok, je sortirai après

Usine à gaz · 7 Juillet 2020

Pareil ça bloque ici :
.Subject = "pour l'usine à gaz"
.TextBody = strbody
.AddAttachment "C:\Users\lionel\Desktop\Dossier isiTel\isiTel1\01 ImmobRdV NF\03 Factures faites\01 classer_envoyer_date\Usine a gaz\usine a gaz facture.pdf" ' 'ADAPTE ICI
.Send
et même msg d'erreur :

Usine à gaz · 7 Juillet 2020

je sors 1/2 heure

Microsoft 365 Hotmail.com envoi de mails avec pièces jointes

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires