Discussion :

[francky74]

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 !

[Pierre Fauconnier]

Salut.

Le mot Mail comme recherche dans la donne 15 entrées, dont certaines te conviendront...

[kiki29]

Salut, le code fourni par SilkyRoad fonctionne parfaitement chez moi ( Outlook Expresss ). dans le titre de ton post tu parles d'Outlook et non d'OutLook Express, la manière de procéder n'est pas la même , reste à te renseigner sur CDO : http://excel.developpez.com/faq/?pag...ailCDOexchange ?

[francky74]

Bonsoir,

Merci pour vos réponses !
Pierre, j'ai déjà bien fouillé dans les FAQ et je pense que la méthode de Silky est très adaptée à ce que je compte faire.

KIKI, merci d'avoir essayé le code de Silky chez toi !
J'ai vérifié sur ma machine et Outlook Express est bien présent aux chemins et noms indiqués dans la macro de Silky. Lorsque je disais simplement Outlook, c'était pour couper le nom .. Mais tu as raison ce n'est pas la même chose.

Personne ne sait donc ce que signifie ce message d'erreur ?
"Erreur d'exécution 53 : Fichier introuvable"
Pourtant le fichier "msimn.exe" figure bien sur mon PC au chemin "C:\Program Files\Outlook Express\". De plus, lorsque je lance Outlook Express avec la souris depuis ce même chemin, il s'ouvre normalement !

Je vais toutefois essayer avec CDO
muchas gracias
Grand merci ! A demain !

[francky74]

Salut à Tous,

Au sujet du Code de silkyroad et, plus exactement, la ligne dont provient mon problème (Shell ...) :
J'ai coupé cette ligne juste après le début et il me reste donc le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Shell "C:\Program Files\Outlook Express\msimn.exe"

Comme ceci, Outlook Express s'ouvre et donc mon chemin était bien correct. C'est la suite du code qui à l'air de ne pas fonctionner !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 & "/mailurl:mailto:" &  Adresse & "?subject=" & Sujet & "&Body=" & Texte

En ce qui concerne le CDO, à la ligne .send, j'ai l'erreur suivante :

"Erreur d'exécution '2147220960 (80040220)':
La valeur de configuration "SendUsing" est non valide."

Sachant que je n'envoie pas de fichier, je ai écris le code comme suivant (bien sûr avec des adresse mails valides non retranscrites dans ce 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
21
22
23
24
 
Sub Envoi_CDO1()
Dim CdoMessage As CDO.Message
'Dim Fichier As Variant
 
    'ChDir "C:\Documents and Settings\UserName\Mes documents\PdfOut"
    'Fichier = Application.GetOpenFilename("Fichiers PDF (*.pdf), *.pdf")
 
    'If Fichier = False Then Exit Sub
 
    Set CdoMessage = New CDO.Message
    With CdoMessage
        .Subject = "Exemple"
        .From = "xxxxx@wanadoo.fr"
        .To = "yyyyy@orange.fr"
        .CC = ""
        '.BCC = ""
        .TextBody = "Texte dans le corps de message"
        '.AddAttachment Fichier
        .Send
    End With
 
    Set CdoMessage = Nothing
End Sub

PS : j'ai coché "Microsoft CDO for windows 2000 Library" et "Microsoft CDO 1.21 Library". Par contre, je n'ai pas la librairie indiquée dans le FAQ de KIKI29 ("Microsoft CDO for Exchange xxxx Library").
http://excel.developpez.com/faq/?pag...ailCDOexchange

Merci pour vos aides !

[francky74]

Youpiiii

J'ai finalement réussi à envoyer un email.
J'ai dû laisser tomber "Outlook Express" et "CDO" pour envoyer via Outlook de la façon suivante et en HTML.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Sub test()
    Set a = Outlook.CreateItem(olMailItem)
    With a
        .To = "xxxx@xxxx.com"
        .Subject = "test mail pour COBAYE31"
        .BodyFormat = olFormatHTML
        .HTMLBody = "le texte en html avec du <b>gras</b> de <i>l'italique</i> etc..."
        .Send
    End With
End Sub

ENJOY