Bonjour ,

j'ai recuperer une function (simple mais qui fonctionne bien) pour envoyer des mails via Outlook express mon code est le suivant :

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
 
 
 Public Sub Envoi(SendTo As String)
 Dim x
 
' Lance Outlook express avec l'adresse , l'objet et le message
 x = Shell("C:\Program Files\Outlook Express\msimn.exe " & "/mailurl:mailto:" & SendTo & "?subject=REACH Supplier Questionnaire &body= REACH Supplier Questionnaire middle", vbNormalFocus)
 ' Pour faire Insertion pièce jointe
SendKeys "%I{ENTER}", False
 ' Pour indiquer le nom du fichier à joindre
 SendKeys "C:\Documents and Settings\Reach Questionnaire.xls{ENTER}", False
 ' Pour faire envoyer maintenant
 SendKeys "%F{DOWN}{ENTER}", False
 
 End Sub
je voudrais faire la meme chose mais rajouté la possibilité de mettre des mails en copie et en copie caché aussi .

Merci de votre aide .