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)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
"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 (mail@mail.com)
| .Subject = "Test de mail"
| .Body = "Mon Texte"
| .Attachments.Add MaPieceJointe
| .Display
"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
"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
"3stone" <home@sweet_home.be> a écrit dans le message de news:
eckki7dDIHA.4752@TK2MSFTNGP04.phx.gbl...
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 (mail@mail.com)
| .Subject = "Test de mail"
| .Body = "Mon Texte"
| .Attachments.Add MaPieceJointe
| .Display
"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