Envoie Email Outlook Express. Comment passer L'Option Cc: ?

[Roland_M]

bien le bonjour à tous,

je me sert d'Outlokk Express, tout va bien mais j'ai quelques difficultés avec l'option Cc:

ma question, quelle est le paramètre à mettre pour cette passer cette Option ou Paramètre ?

j'ai ceci qui est Ok (évidemment sans cette option Cc)

Opt = "/mailurl:mailto:" & EmailAdresDestinataire & "?subject=" & EmailSujet & "&Body=" & EmailMessage
Shell "C:\Program Files\Outlook Express\msimn.exe " & Opt
etc...



Merci d'avance

 

[BERRACHED said]

Re : Envoie Email Outlook Express. Comment passer L'Option Cc: ?

Salut,Roland M

tu peux t'inspirer de ce code :

Private Sub Application_ItemSend(ByVal Item As Object, _
 
Cancel As Boolean)
 
Dim myRecipient As Outlook.Recipient
 
If Not Item.Class = olMail Then GoTo fin
 
Dim prompt As String
 
' ici renseigner le destinataire
 
cci = "MonDestinataire@sonDomaine.fr"
 
'commentez au choix l'option non voulue
 
'########################Option CCI############################
 
prompt = "Ajouter le cci " & cci & " à " & Item.Subject & "?"
 
If MsgBox(prompt, vbYesNo + vbQuestion, "Sample") = vbYes Then
 
Set myRecipient = Item.Recipients.Add(cci)
 
myRecipient.Type = olBCC
 
myRecipient.Resolve
 
If myRecipient.Resolved = False Then
 
MsgBox "L'adresse Email n'est pas correcte !", vbCritical, "Erreur"
 
Cancel = True
End If
 
End If
 
'########################Option CC##############################
 
prompt = "Ajouter le cc " & cci & " à " & Item.Subject & "?"
 
If MsgBox(prompt, vbYesNo + vbQuestion, "Sample") = vbYes Then
 
Set myRecipient = Item.Recipients.Add(cci)
 
myRecipient.Type = olCC
 
myRecipient.Resolve
 
If myRecipient.Resolved = False Then
 
MsgBox "L'adresse Email n'est pas correcte !", vbCritical, "Erreur"
 
Cancel = True
End If
 
End If
 
'#######################FIN#####################################
 
fin:
 
End Sub

Cordialement

 

[Roland_M]

Re : Envoie Email Outlook Express. Comment passer L'Option Cc: ?

salut à toi said,

c'est sympa, mais ça ne m'est pas grand secours car je n'ai pas Outlook !
je travaille avec OutLook Express !

encore merci !

 

[BERRACHED said]

Re : Envoie Email Outlook Express. Comment passer L'Option Cc: ?

Ré,

voir ce lien : Ce lien n'existe plus

Cordialement