Discussion :

[skillipo]

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 .

[LedZeppII]

Bonsoir,

la syntaxe de mailto est la suivante

Code :

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

mailto:<adresse_messagerie_destinataire>?cc=<adresse_messagerie_cc>&bcc=<adresse_messagerie_cci>&subject=<texte_objet>&body=<texte_corps>

Fonction modifiée pour incorporer destinataire en copie et destinataire en copie cachée.

Code vb :

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
Public Sub Envoi(SendTo As String, Optional strCC As String, Optional strBCC As String)
Dim x, strMailTo As String
 
strMailTo = " /mailurl:mailto:" & SendTo & _
            "?subject=REACH Supplier Questionnaire " & _
            "&body= REACH Supplier Questionnaire middle"
' Ajouter destinataire en copie
If Not IsMissing(strCC) Then strMailTo = strMailTo & "&cc=" & strCC
' Ajouter destinataire en copie cachée
If Not IsMissing(strBCC) Then strMailTo = strMailTo & "&bcc=" & strBCC
 
' Lance Outlook express avec l'adresse , l'objet et le message
 x = Shell("C:\Program Files\Outlook Express\msimn.exe" & strMailTo, 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

Les deux paramètres ajoutés sont facultatifs.

A+