Bonjour,
j'arrive à envoyer un mail avec Excel via Outlook mais je souhaite avoir d'autres éléments :
- Savoir si l'adresse était bonne
- Détruire le mail dans le dossier "Envoyés" d'Outlook
Merci d'avance.
Mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20 Set Email = CreateObject("Outlook.Application") Set EmailMsg = Email.CreateItem(olMailItem) Dim Corps_message ' Corps du message Corps_message = " Ceci est un mail généré de façon automatique" EmailMsg.To = Feuil1.Cells(num_ligne, 1) EmailMsg.Subject = "Essai de mail par Excel " & Feuil1.Cells(num_ligne, 1) EmailMsg.Body = Corps_message EmailMsg.Send EmailMsg.DeleteAfterSubmit = True 'ici de je souhaite détruire le mail dans le dossier Envoyés ! EmailMsg.Error : Feuil1.Cells(num_ligne, 3) = "KO" 'ici de je souhaite avoir KO si le mail n'est pas envoyé ! EmailMsg.Error ' Message d'erreur On Error GoTo errorHandler Exit Sub Set EmailMsg = Nothing Set Email = Nothing errorHandler: MsgBox ("ERREUR") End Sub
Partager