Accusé réception avec OUTLOOK [Résolu]

thga47 5 Messages postés mercredi 12 novembre 2003Date d'inscription 14 août 2012 Dernière intervention - 11 déc. 2004 à 12:15 - Dernière réponse : thga47 5 Messages postés mercredi 12 novembre 2003Date d'inscription 14 août 2012 Dernière intervention
- 20 févr. 2005 à 10:26
Bonjour,

j'utilise un objet outlook.application pour envoyer un mail avec des pièces jointes :

Set AppMail = CreateObject("Outlook.Application")
Set EnvMail = AppMail.CreateItem(0)
With EnvMail
.Subject = Trim(TitreEmail)
.Recipients.add Trim(AdresseEmail)
.Body = Trim(CorpsEmail)
Masque = Trim(DossierFichiers) & "\*.*"
NomFichier = Dir(Masque, vbNormal)
While NomFichier <> ""
If NomFichier <> "." Or NomFichier <> ".." Then
.Attachments.add Trim(DossierFichiers) & "" & Trim(NomFichier)
Trouver = True
End If
NomFichier = Dir
Ind = Ind + 1
Wend
.Send
end with

Aucun pb, ça fonctionne parfaitement.

Comment faire pour demader un accusé de réception et un confirmation de lecture

Merci d'avance,

ThGa
Afficher la suite 

2 réponses

michelxld 402 Messages postés vendredi 6 août 2004Date d'inscription 12 octobre 2008 Dernière intervention - 12 déc. 2004 à 07:06
+3
Utile
bonjour

j'espere que ces infos pourront t'aider

With EnvMail
...
.OriginatorDeliveryReportRequested = True 'confirmation de réception
.ReadReceiptRequested = True 'confirmation de lecture
...
End With

bonne journée
michel
Cette réponse vous a-t-elle aidé ?  
thga47 5 Messages postés mercredi 12 novembre 2003Date d'inscription 14 août 2012 Dernière intervention - 20 févr. 2005 à 10:26
0
Utile
Merci, c'est exactement ce que je cherchais.

Désolé d'avoir été si long à te remercier.

ThGa

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.