Bonjour,
Je dois envoyer des emails automatiques depuis Excel (qui utilise Outlook Express par macro). J'ai trouvé ce code donné par Silkyroad :
Le problème est que la dernière ligne (Shell ....) ne fonctionne pas. Excel me renvoie le message d'erreur suivant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Sub MailOutlookExpress() Dim Adresse As String, Sujet As String, Texte As String Adresse = "Destinataire01@mail.fr;Destinataire02@mail.fr" Sujet = "Le sujet" Texte = "Bonjour," & vbCrLf & vbCrLf _ & "Vous trouverez ci joint les infos demandées" & vbCrLf & vbCrLf & _ "Cordialement" & vbCrLf & Environ("UserName") Shell "C:\Program Files\Outlook Express\msimn.exe " & "/mailurl:mailto:" & _ Adresse & "?subject=" & Sujet & "&Body=" & Texte End Sub
"Erreur d'exécution 53 : Fichier introuvable"
Pourtant, le fichier msimn.exe se trouve bien dans C\Program Files\Outlook Express
Merci pour votre aide !
Partager