Envoi mail automatique avec fichier joint PDF [Résolu/Fermé]

Signaler
-
Messages postés
1
Date d'inscription
mardi 23 avril 2019
Statut
Membre
Dernière intervention
25 avril 2019
-
Bonjour,

J'utilise le code ci-dessous pour envoyer automatiquement un mail avec ma feuille excel jointe en format pdf. Ce code me met en erreur 400, je ne comprends pas pourquoi...

Sub EnvoimailADV_reappro()
' Nécessite la référence : Microsoft Outlook 1x Object Library
Dim olApp As Outlook.Application
Dim olMail As MailItem
Dim CurFile As String
Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)

CurFile = ThisWorkbook.Path & "\" & Range("A2") & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CurFile, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
With olMail
.To = "***@***"
.Subject = "Nouvelle " & Range("A2")
.Body = "Bonjour Catherine," & vbCrLf & vbCrLf & "Tu trouveras ci-joint une nouvelle commande de réappro." & vbCrLf & vbCrLf & "Merci à toi."
.Attachments.Add CurFile
.Display
End With
MsgBox "Merci de vérifier que le message apparait dans -messages envoyés- dans votre messagerie OUTLOOK."

' Effacer les variables objets
Set olMail = Nothing
Set olApp = Nothing
End Sub


EDIT : Ajout des BALISES DE CODE


Pouvez-vous m'aider s'il vous plait ?

2 réponses

Messages postés
28878
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
4 juillet 2020
2 593
Bonjour,

Aucun souci constaté avec ce code...

Quelques que questions pouvant nous aider à trouver la réponse :

- As tu importé la référence Miscrosoft Outlook ? (si oui;. laquelle. peux tu nous montrer via une capture écran )
- As tu le logiciel Outlook installé sur l"ordi ?
- As tu essayé d'exécuter le code en mode "Pas à pas" pour esayer de voir sur quelle ligne de code il te retourne l'erreur ?
- Quelle version d'excel as tu ?
- Le fichier Excel est-il Enregistré sur le disque dur de l'ordinateur ? Sous quel format ? xls ? xlsm ? autre ?
- Est-ce que tu as déjà fait fonctionner ce code sur l'ordi que tu utilises actuellement ?

Messages postés
1
Date d'inscription
mardi 23 avril 2019
Statut
Membre
Dernière intervention
25 avril 2019

Bonjour Jordane,
Merci pour ta réponse.
Ecoute en essayant de répondre à tes questions, je me suis rendue compte que le fichier n'était pas enregistré sur le disque dur, je l'y ai remis, reconstruit quelques trucs et maintenant ça fonctionne !!
Merci pour tes questions pertinentes !
Aucun pb avec le code finalement, et ça c'est une bonne nouvelle :)