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

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
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,
 

Pièces jointes

  • hotmail.com_envoie_mails.xlsm
    24.2 KB · Affichages: 0
Dernière édition:

patricktoulon

XLDnaute Barbatruc
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

XLDnaute Barbatruc
Supporter XLD
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

XLDnaute Barbatruc
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
 
Dernière édition:

Usine à gaz

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

Sans titre.jpg
 

Discussions similaires

Haut Bas