Send ne fonctionne pas pour mon publipostage

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

OlivierHervé

XLDnaute Nouveau
Bonjour,
lorsque je lance ma macro Publipostage,le code bute sur .Send

erreur d'exécution '287':

ci-dessous le code,

merci pour votre aide

Sub EnvoiMail()
Dim ListeDest
Dim ListeIdentifiant
Dim ListeMDP
Dim i As Long
Dim oMsgApp As Object
Dim oMsg As Object
Dim sListeDest As String
Dim sFichier As String


sFichier = Application.GetOpenFilename(, , "Sélectionner le fichier à envoyer")
If sFichier = "" Then
MsgBox "Aucun fichier sélectionné, opération annulée"
Exit Sub

End If

Set oMsgApp = CreateObject("Outlook.Application")

ListeDest = Range("Tableau1[MAIL]")
ListeIdentifiant = Range("Tableau1[Identifiant]")
ListeMDP = Range("Tableau1[MDP]")


For i = LBound(ListeDest, 1) To UBound(ListeDest, 1)

Set oMsg = oMsgApp.CreateItem(0)
With oMsg

.To = ListeDest(i, 1)

.Attachments.Add sFichier

.Subject = "Votre Identifiant & Mdp"

.Body = "Veuillez trouver ci-joint Votre Identifiant et Mot de passe à l'application taratata." & Chr(10) & Chr(13) & _
"Ainsi que la procédure pour utiliser le portail taratata" & Chr(10) & Chr(13) & _
"Identifiant de connexion: " & ListeIdentifiant(i, 1) & Chr(10) & Chr(13) & _
"MDP: " & ListeMDP(i, 1) & Chr(10) & Chr(13) & _
"Cordialement," & Chr(10) & Chr(13) & _
"Bonne Journée"

'.Save

'.Display
.Send

End With
'Set oMsg = Nothing
Next

MsgBox "Mail envoyé"
End Sub
 
Bonjour @OlivierHervé

Bienvenue sur XLD, tous ici sont prêts à t'aider.
Il faut bien sur lire la charte, ceci ne prend que quelques minutes.
Ne pas oublié pour une demande de joindre un fichier exposant le problème le plus clairement possible. Pour cela il serait bien vu de présenter un fichier simplifié avec le but à atteindre, histoire de ne pas faire des aller et retour inutiles.
De plus ici tu es sur "Présentation des nouveaux membres" et ton exposé risque de partir aux oubliettes.
Réédite ta demande sur "Forum excel"
Tu auras plus de chance et toute l'aide souhaitée.
Amicalement

Jean-Paul
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
709
Réponses
10
Affichages
467
  • Question Question
Microsoft 365 Excel VBA
Réponses
14
Affichages
812
  • Question Question
Microsoft 365 Code VBA
Réponses
7
Affichages
632
Réponses
2
Affichages
392
Réponses
4
Affichages
355
  • Question Question
Réponses
1
Affichages
550
Retour