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

[Usine à gaz]

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]

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

 

[patricktoulon]

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

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]

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

 

[Usine à gaz]

Re-Bjr,

ça beug sur : .Send

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]

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

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]

ok

 

[Usine à gaz]

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]

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

 

[Usine à gaz]

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

 

[patricktoulon]

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

 

[Usine à gaz]

Je dois sortir pour 1/2 heure

 

[patricktoulon]

ok

 

[Usine à gaz]

ok, je sortirai après

 

[Usine à gaz]

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]

je sors 1/2 heure