Discussion :

[liop49]

Bonjoir,




Je souhaite envoyer un email via une macro excel mais mon code utilise outlook alors que je voudrais le forcer à utiliser OutlookExpress.

Y a-t-il un moyen ?

Voici 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
21
Sub EnvoiMail()
  Dim MonOutlook As Object
  Dim MonMessage As Object
  Dim nomfich As String
  Dim nomfich2 As String
  Dim Corps As String
  Set MonOutlook = CreateObject("Outlook.Application")
  Set MonMessage = MonOutlook.createitem(0)
 
            MonMessage.To = Email
            MonMessage.Subject = "BULLETINS D'ANALYSE COMMANDE " & Cde
            Corps = "Bonjour," & vbCrLf & vbCrLf
            Corps = Corps & "Veuillez trouver ci-joint la liste des produits expédiés le " & Date_expe2 & " et pour laquelle vous pourrez télécharger les bulletins d'analyse sur notre site." & vbCrLf & "Bonne réception." & vbCrLf & "Bien cordialement." & vbCrLf & "Le Service Commercial"
            MonMessage.body = Corps
            MonMessage.Attachments.Add nomfich
            MonMessage.Display
            '  SendKeys "^{ENTER}"
            Set MonOutlook = Nothing
 
 
End Sub

Est ce qq1 peut m'aider ?

Merci par avance Nini

[SilkyRoad]

bonsoir


Tu peux tester ce type de procédure:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
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

bonne soirée
michel

[liop49]

SilkyRoad çà fonctionne du feu de dieu sauf que

Je n'ai plus la pièce jointe maintenant !!

[liop49]

Je suis trop fort !!!!



et voilà le code qui va bien :

Code :

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

1
2
3
4
5
6
7
            Shell "C:\Program Files\Outlook Express\msimn.exe " & "/mailurl:mailto:" & _
            Adresse & "?subject=" & Sujet & "&Body=" & Texte & ""
            SendKeys "%I" & "p" & nomfich & "~"
                    'Signification des caractères après "SendKeys":
                    '* %I et P = Insertion de la pièce jointe dans Outlook Express. (%=Alt)
                    '* ~ = Validation. (~=Entrée)
                    '* %S = Envoyer.

Bon en fait c'est un magistral copier coller !!!!
Chut faut pas le dire

A bientôt et merci pour tout

Nini