Bonjour,

Je dois envoyer des emails automatiques depuis Excel (qui utilise Outlook Express par macro). J'ai trouvé ce code donné par Silkyroad :
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
Le problème est que la dernière ligne (Shell ....) ne fonctionne pas. Excel me renvoie le message d'erreur suivant :
"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 !