Automatisation d'envoi courriel avec cc et p. j. personnalisée

Signaler
-
Messages postés
15430
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
24 novembre 2020
-
Bonjour,
J'essaie de créer une macro dans Excel qui me permettrait d'envoyer automatiquement un courriel avec une personne en CC et une p. j. personnalisée pour chaque destinataire.
J'utilise la macro suivante, mais j'ai toujours une fenêtre "erreur automation" qui pop... Une idée du problème?

Voici le code :

Option Explicit

Sub EnvoiCourriel()
Dim ListeDest()
Dim ListeCopie()
Dim ListeFichier()
Dim i As Long
Dim oMsgApp As Object
Dim oMsg As Object
Dim sListeDest As String
Dim sListeCopie As String
Dim sListeFichier As String


Set oMsgApp = CreateObject("Outlook.Application")

ListeDest() = Range("tblBasePubli[COURRIEL1]")
ListeCopie() = Range("tblBasePubli[COURRIEL2]")
ListeFichier() = Range("tblBasePubli[CHEMIN CONCATÉNÉ]")

For i = LBound(ListeDest(), 1) To UBound(ListeDest(), 1)
Set oMsg = oMsgApp.CreateItem(0)
With oMsg
.to = ListeDest(i, 1)
.cc = ListeCopie(i, 1)
.attachments = ListeFichier(i, 1)
.Subject = "Bonjour"
.body = "Bonjour," & chr(13) & "BlaBlaBla." & chr(13) & "Bonne Journée!" & chr(13) & "signé X"
.send
End With
Set oMsg = Nothing
Next

oMsg.Quit
Set oMsgApp = Nothing
MsgBox "Courriels envoyés avec succès"

End Sub

6 réponses

Messages postés
13275
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
24 novembre 2020
746
bonjour,
merci d'utiliser les balises de code (VBA, c'est du basic): https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code

comme tu ne nous en dis pas plus, je suppose que la fenêtre popup ne contient aucune information utile: en es-tu certain?
Bonjour yg_be,

Désolée, je ne suis pas une habituée du codage. Je ne connais pas les bonnes pratiques... Mais merci pour le lien, je n'oublierai pas de l'utiliser la prochaine fois.
Pour répondre à ta question, non, il n'y a pas plus d'info dans le pop-up.

Merci
Messages postés
15430
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
24 novembre 2020
1 405
Bonjour a tous,
Dans un premier temps:
.Attachments.Add ListeFichier(i, 1)


Sur quelle ligne l'erreur?
Bonjour,
J'ai ajouté le ".Add" (Merci) et j'ai maintenant une erreur 400...
Messages postés
13275
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
24 novembre 2020
746
erreur 400 sur quelle ligne?
Ce n'est pas précisé...
Messages postés
13275
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
24 novembre 2020
746
ah bon? il n'y a pas une ligne surlignée quand l'erreur de produit?
qu'affiche précisément le message d'erreur?
non... Peut-être qu'il y a un paramètre que je n'ai pas activé pour avoir le surlignement des erreurs
Messages postés
13275
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
24 novembre 2020
746
qu'affiche précisément le message d'erreur?
>
Messages postés
13275
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
24 novembre 2020

Un rond rouge avec une croix blanche et 400.
Je pensais que peut être j'étais barrée par l'administrateur réseau (ma job) alors j'ai fait le test sur mon ordi perso et j'ai la même chose... J'ai lu que ça pouvait peut-être venir d'un mauvais paramétrage...
Messages postés
15430
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
24 novembre 2020
1 405 > Punto
Bonjour a tous,

Mettez un point d'arret sur la ligne
.Attachments
et lancez