Send ne fonctionne pas pour mon publipostage

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
 

VIARD

XLDnaute Impliqué
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
 

Statistiques des forums

Discussions
311 553
Messages
2 080 617
Membres
101 273
dernier inscrit
carymb