Suivant les bons conseils que l'on trouve sur ce Forum,=20
j'utilise ce code pour envoyer un message Outlook (a=20
l'int=E9rieur d'une boucle qui me permeet d'envoyer des=20
messages =E0 plusieurs destinataires):
Set ol =3D CreateObject("outlook.application")
Set myItem =3D ol.CreateItem(olMailItem)
myItem.To =3D Destinataire
myItem.Subject =3D Objet
myItem.Body =3D CorpsDuMessage
myItem.Display=20
Or, si la fen=EAtre Propri=E9t=E9s d'Outlook est ouverte, on a=20
une erreur. J'intercepte donc l'erreur avec un "On Error=20
Goto ..." mais je n'arrive pas =E0 reprendre l'envoi.
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
Patrick Fredin
Bonjour,
Essais en détruisant l'objet avant de retenter l'envoi, comme cela :
Set myItem = Nothing
Tiens-moi au courant.
-- Patrick
"DoMi" wrote in message news:15a701c4a7ab$5668c710$ Bonjour !
Suivant les bons conseils que l'on trouve sur ce Forum, j'utilise ce code pour envoyer un message Outlook (a l'intérieur d'une boucle qui me permeet d'envoyer des messages à plusieurs destinataires): Set ol = CreateObject("outlook.application") Set myItem = ol.CreateItem(olMailItem) myItem.To = Destinataire myItem.Subject = Objet myItem.Body = CorpsDuMessage myItem.Display
Or, si la fenêtre Propriétés d'Outlook est ouverte, on a une erreur. J'intercepte donc l'erreur avec un "On Error Goto ..." mais je n'arrive pas à reprendre l'envoi.
Merci pour votre aide !
Bonjour,
Essais en détruisant l'objet avant de retenter l'envoi, comme cela :
Set myItem = Nothing
Tiens-moi au courant.
--
Patrick
"DoMi" <anonymous@discussions.microsoft.com> wrote in message
news:15a701c4a7ab$5668c710$a301280a@phx.gbl...
Bonjour !
Suivant les bons conseils que l'on trouve sur ce Forum,
j'utilise ce code pour envoyer un message Outlook (a
l'intérieur d'une boucle qui me permeet d'envoyer des
messages à plusieurs destinataires):
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olMailItem)
myItem.To = Destinataire
myItem.Subject = Objet
myItem.Body = CorpsDuMessage
myItem.Display
Or, si la fenêtre Propriétés d'Outlook est ouverte, on a
une erreur. J'intercepte donc l'erreur avec un "On Error
Goto ..." mais je n'arrive pas à reprendre l'envoi.
Essais en détruisant l'objet avant de retenter l'envoi, comme cela :
Set myItem = Nothing
Tiens-moi au courant.
-- Patrick
"DoMi" wrote in message news:15a701c4a7ab$5668c710$ Bonjour !
Suivant les bons conseils que l'on trouve sur ce Forum, j'utilise ce code pour envoyer un message Outlook (a l'intérieur d'une boucle qui me permeet d'envoyer des messages à plusieurs destinataires): Set ol = CreateObject("outlook.application") Set myItem = ol.CreateItem(olMailItem) myItem.To = Destinataire myItem.Subject = Objet myItem.Body = CorpsDuMessage myItem.Display
Or, si la fenêtre Propriétés d'Outlook est ouverte, on a une erreur. J'intercepte donc l'erreur avec un "On Error Goto ..." mais je n'arrive pas à reprendre l'envoi.
Merci pour votre aide !
DoMi
Bonjour !
Ca marche, merci beaucoup !
DoMi
-----Message d'origine----- Bonjour,
Essais en détruisant l'objet avant de retenter l'envoi, comme cela :
Set myItem = Nothing
Tiens-moi au courant.
-- Patrick
"DoMi" wrote in message
news:15a701c4a7ab$5668c710$ Bonjour !
Suivant les bons conseils que l'on trouve sur ce Forum, j'utilise ce code pour envoyer un message Outlook (a l'intérieur d'une boucle qui me permeet d'envoyer des messages à plusieurs destinataires): Set ol = CreateObject("outlook.application") Set myItem = ol.CreateItem(olMailItem) myItem.To = Destinataire myItem.Subject = Objet myItem.Body = CorpsDuMessage myItem.Display
Or, si la fenêtre Propriétés d'Outlook est ouverte, on a une erreur. J'intercepte donc l'erreur avec un "On Error Goto ..." mais je n'arrive pas à reprendre l'envoi.
Merci pour votre aide !
.
Bonjour !
Ca marche, merci beaucoup !
DoMi
-----Message d'origine-----
Bonjour,
Essais en détruisant l'objet avant de retenter l'envoi,
comme cela :
Set myItem = Nothing
Tiens-moi au courant.
--
Patrick
"DoMi" <anonymous@discussions.microsoft.com> wrote in
message
Suivant les bons conseils que l'on trouve sur ce Forum,
j'utilise ce code pour envoyer un message Outlook (a
l'intérieur d'une boucle qui me permeet d'envoyer des
messages à plusieurs destinataires):
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olMailItem)
myItem.To = Destinataire
myItem.Subject = Objet
myItem.Body = CorpsDuMessage
myItem.Display
Or, si la fenêtre Propriétés d'Outlook est ouverte, on a
une erreur. J'intercepte donc l'erreur avec un "On Error
Goto ..." mais je n'arrive pas à reprendre l'envoi.
Essais en détruisant l'objet avant de retenter l'envoi, comme cela :
Set myItem = Nothing
Tiens-moi au courant.
-- Patrick
"DoMi" wrote in message
news:15a701c4a7ab$5668c710$ Bonjour !
Suivant les bons conseils que l'on trouve sur ce Forum, j'utilise ce code pour envoyer un message Outlook (a l'intérieur d'une boucle qui me permeet d'envoyer des messages à plusieurs destinataires): Set ol = CreateObject("outlook.application") Set myItem = ol.CreateItem(olMailItem) myItem.To = Destinataire myItem.Subject = Objet myItem.Body = CorpsDuMessage myItem.Display
Or, si la fenêtre Propriétés d'Outlook est ouverte, on a une erreur. J'intercepte donc l'erreur avec un "On Error Goto ..." mais je n'arrive pas à reprendre l'envoi.
