Accusé de réception

Le
Nesta
Bonjour de nouveau,

Pouvez-vous m'indiquer svp comme faire pour ajouter un accusé de réception à
mon objet myItem qui est un message électronique ?
Voici une partie de mon code :

Dim myOlApp As Object
Dim myItem As Object

' Création d'un nouveau message électronique
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olMailItem)

With myItem

.Recipients.Add (mail@mail.com)
.Subject = "Test de mail"
.Body = "Mon Texte"
.Attachments.Add MaPieceJointe
.Display

End With

Merci d'avance pour votre aide !


Nesta
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
3stone
Le #6328641
Salut,

"Nesta"
| Pouvez-vous m'indiquer svp comme faire pour ajouter un accusé de réception à
| mon objet myItem qui est un message électronique ?
| Voici une partie de mon code :
|
| Dim myOlApp As Object
| Dim myItem As Object
|
| ' Création d'un nouveau message électronique
| Set myOlApp = CreateObject("Outlook.Application")
| Set myItem = myOlApp.CreateItem(olMailItem)
|
| With myItem
|
| .Recipients.Add ()
| .Subject = "Test de mail"
| .Body = "Mon Texte"
| .Attachments.Add MaPieceJointe
| .Display


Essaies avec :

.ReadReceiptRequested = True


|
| End With



--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
Nesta
Le #6328331
MERCI !

Ca fonctionne.

Nesta


"3stone"
Salut,

"Nesta"
| Pouvez-vous m'indiquer svp comme faire pour ajouter un accusé de
réception à
| mon objet myItem qui est un message électronique ?
| Voici une partie de mon code :
|
| Dim myOlApp As Object
| Dim myItem As Object
|
| ' Création d'un nouveau message électronique
| Set myOlApp = CreateObject("Outlook.Application")
| Set myItem = myOlApp.CreateItem(olMailItem)
|
| With myItem
|
| .Recipients.Add ()
| .Subject = "Test de mail"
| .Body = "Mon Texte"
| .Attachments.Add MaPieceJointe
| .Display


Essaies avec :

.ReadReceiptRequested = True


|
| End With



--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)



Publicité
Poster une réponse
Anonyme