Automation d'envoi de mail VBA Outlook : ?

Le
Gadget
Salut à tous.
J'ai fait une routine d'envoi de mails par VBA Excel avec appel précoce à
Outlook. Ces mails comprennent 3 pièces jointes chacun et sont envoyés
nombreux à chaque fois.
Voici la routine d'envoi de mail :

Sub EnvoyerMailOutlook(TableauPJ() As String, Expediteur As String,
Destinataire As String, Sujet As String, Corps As String)

Application.DisplayAlerts = False

Dim i
Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim CurrFile As String
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
olmail.To = Destinataire
olmail.Subject = Sujet
olmail.Body = Corps
For i = 1 To 3
If TableauPJ(i) = "" Then Exit For
olmail.Attachments.Add TableauPJ(i)
Next i
olmail.Send
Application.DisplayAlerts = True
Set myolapp = CreateObject("Outlook.Application")
myolapp.Quit
Attendre 5
ol.Quit
End Sub

En surveillant le gestionnaire de tâches, j'ai remarqué que la macro ouvre
des instances d'Outlook sans jamais les refermer, si bien qu'après une
douzaine de mails, j'ai un message du genre 'Outlook est utilisé par trop
d'applications'. J'ai essayé à l'aveugle de modifier la routine, en enlevant
par exemple les articles 'New'. Il ne m'ouvrait alors qu'une instance, mais
n'envoyait jamais rien (bien que les mails se retourvent dasns les 'Elements
envoyés').
Comment puis-je refermer les instances ouvertes sans interrompre l'envoi du
mail (chaque mail faisant 400ko, son envoi peut prendre quelques secondes)
?
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
papou
Le #16631701
Bonjour
Quelques questions :
1°) Comment appelles-tu la procédure EnvoyerMailOutlook ?
2°) Que viennent faire ces instructions dans la procédure ?
Set myolapp = CreateObject("Outlook.Application")
myolapp.Quit
Attendre 5

Cordialement
Pascal

"Gadget" 48b3c4a6$0$890$
Salut à tous.
J'ai fait une routine d'envoi de mails par VBA Excel avec appel précoce à
Outlook. Ces mails comprennent 3 pièces jointes chacun et sont envoyés
nombreux à chaque fois.
Voici la routine d'envoi de mail :

Sub EnvoyerMailOutlook(TableauPJ() As String, Expediteur As String,
Destinataire As String, Sujet As String, Corps As String)

Application.DisplayAlerts = False

Dim i
Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim CurrFile As String
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
olmail.To = Destinataire
olmail.Subject = Sujet
olmail.Body = Corps
For i = 1 To 3
If TableauPJ(i) = "" Then Exit For
olmail.Attachments.Add TableauPJ(i)
Next i
olmail.Send
Application.DisplayAlerts = True
Set myolapp = CreateObject("Outlook.Application")
myolapp.Quit
Attendre 5
ol.Quit
End Sub

En surveillant le gestionnaire de tâches, j'ai remarqué que la macro ouvre
des instances d'Outlook sans jamais les refermer, si bien qu'après une
douzaine de mails, j'ai un message du genre 'Outlook est utilisé par trop
d'applications'. J'ai essayé à l'aveugle de modifier la routine, en
enlevant par exemple les articles 'New'. Il ne m'ouvrait alors qu'une
instance, mais n'envoyait jamais rien (bien que les mails se retourvent
dasns les 'Elements envoyés').
Comment puis-je refermer les instances ouvertes sans interrompre l'envoi
du mail (chaque mail faisant 400ko, son envoi peut prendre quelques
secondes) ?





michdenis
Le #16631521
Remplace ceci :

Set myolapp = CreateObject("Outlook.Application")
myolapp.Quit

Par
Set ol = Nothing



"papou" de news:
Bonjour
Quelques questions :
1°) Comment appelles-tu la procédure EnvoyerMailOutlook ?
2°) Que viennent faire ces instructions dans la procédure ?
Set myolapp = CreateObject("Outlook.Application")
myolapp.Quit
Attendre 5

Cordialement
Pascal

"Gadget" 48b3c4a6$0$890$
Salut à tous.
J'ai fait une routine d'envoi de mails par VBA Excel avec appel précoce à
Outlook. Ces mails comprennent 3 pièces jointes chacun et sont envoyés
nombreux à chaque fois.
Voici la routine d'envoi de mail :

Sub EnvoyerMailOutlook(TableauPJ() As String, Expediteur As String,
Destinataire As String, Sujet As String, Corps As String)

Application.DisplayAlerts = False

Dim i
Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim CurrFile As String
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
olmail.To = Destinataire
olmail.Subject = Sujet
olmail.Body = Corps
For i = 1 To 3
If TableauPJ(i) = "" Then Exit For
olmail.Attachments.Add TableauPJ(i)
Next i
olmail.Send
Application.DisplayAlerts = True
Set myolapp = CreateObject("Outlook.Application")
myolapp.Quit
Attendre 5
ol.Quit
End Sub

En surveillant le gestionnaire de tâches, j'ai remarqué que la macro ouvre
des instances d'Outlook sans jamais les refermer, si bien qu'après une
douzaine de mails, j'ai un message du genre 'Outlook est utilisé par trop
d'applications'. J'ai essayé à l'aveugle de modifier la routine, en
enlevant par exemple les articles 'New'. Il ne m'ouvrait alors qu'une
instance, mais n'envoyait jamais rien (bien que les mails se retourvent
dasns les 'Elements envoyés').
Comment puis-je refermer les instances ouvertes sans interrompre l'envoi
du mail (chaque mail faisant 400ko, son envoi peut prendre quelques
secondes) ?





Gadget
Le #16631501
J'appelle cette macro à partir d'une autre macro classique qui crée des pdfs
et stocke leur chemin complet dans le tableau nommé ici tableauPJ. IL y a 3
docs au maximum.
'Attendre 5' est une petite routine d'attente qui mermet de faire une pause
de 5 secondes. J'ai rajouté ça en pensant que le téléscopage des instances
était dû à la trop rapide succession d'appel de cette macro. Les 2
instructions MyOlApp servent, je crois, en principe, à quitter Outlook après
usage. C'est bien ça ?

"papou" de news:
Bonjour
Quelques questions :
1°) Comment appelles-tu la procédure EnvoyerMailOutlook ?
2°) Que viennent faire ces instructions dans la procédure ?
Set myolapp = CreateObject("Outlook.Application")
myolapp.Quit
Attendre 5

Cordialement
Pascal

"Gadget" 48b3c4a6$0$890$
Salut à tous.
J'ai fait une routine d'envoi de mails par VBA Excel avec appel précoce à
Outlook. Ces mails comprennent 3 pièces jointes chacun et sont envoyés
nombreux à chaque fois.
Voici la routine d'envoi de mail :

Sub EnvoyerMailOutlook(TableauPJ() As String, Expediteur As String,
Destinataire As String, Sujet As String, Corps As String)

Application.DisplayAlerts = False

Dim i
Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim CurrFile As String
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
olmail.To = Destinataire
olmail.Subject = Sujet
olmail.Body = Corps
For i = 1 To 3
If TableauPJ(i) = "" Then Exit For
olmail.Attachments.Add TableauPJ(i)
Next i
olmail.Send
Application.DisplayAlerts = True
Set myolapp = CreateObject("Outlook.Application")
myolapp.Quit
Attendre 5
ol.Quit
End Sub

En surveillant le gestionnaire de tâches, j'ai remarqué que la macro
ouvre des instances d'Outlook sans jamais les refermer, si bien qu'après
une douzaine de mails, j'ai un message du genre 'Outlook est utilisé par
trop d'applications'. J'ai essayé à l'aveugle de modifier la routine, en
enlevant par exemple les articles 'New'. Il ne m'ouvrait alors qu'une
instance, mais n'envoyait jamais rien (bien que les mails se retourvent
dasns les 'Elements envoyés').
Comment puis-je refermer les instances ouvertes sans interrompre l'envoi
du mail (chaque mail faisant 400ko, son envoi peut prendre quelques
secondes) ?









michdenis
Le #16631461
Ta procédure générale devrait plutôt ressembler à ceci :

Ce qui suit devrait être dans le même module :

'Dans le haut de ton module, déclaration de tes variables

Dim ol As Outlook.Application
Dim olmail As MailItem

'Dans la procédure qui appelle la sub "EnvoyerMailOutlook"
'tu crées une instance et c'est la même instance qui enverra
'tous tes messages. Il s'agit de créer la boucle pour renseigner
'adéquatement les variables de la sub "EnvoyerMailOutlook"
'Ceci n'a pas été testé évidemment, mais c'est la structure
'que tu devrais essayer de mettre en place.
'--------------------------------------------
Sub test()
Dim i
Dim CurrFile As String
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)

'Création de la boucle ....
tableau = "???"
Destinataire = "???"
Sujet = "???"
Corps = "???"
EnvoyerMailOutlook tableau, Destinataire, Sujet, Corps

'Quand tous tes courriels sont envoyés, tu supprimes tes objets.
ol.Quit
Set olmail = Nothing: Set ol = Nothing

End Sub
'--------------------------------------------
Sub EnvoyerMailOutlook(TableauPJ() As String, _
Destinataire As String, _
Sujet As String, _
Corps As String)

olmail.To = Destinataire
olmail.Subject = Sujet
olmail.Body = Corps
For i = 1 To 3
If TableauPJ(i) = "" Then Exit For
olmail.Attachments.Add TableauPJ(i)
Next i
olmail.Send
End Sub
'--------------------------------------------






"michdenis"
Remplace ceci :

Set myolapp = CreateObject("Outlook.Application")
myolapp.Quit

Par
Set ol = Nothing



"papou" de news:
Bonjour
Quelques questions :
1°) Comment appelles-tu la procédure EnvoyerMailOutlook ?
2°) Que viennent faire ces instructions dans la procédure ?
Set myolapp = CreateObject("Outlook.Application")
myolapp.Quit
Attendre 5

Cordialement
Pascal

"Gadget" 48b3c4a6$0$890$
Salut à tous.
J'ai fait une routine d'envoi de mails par VBA Excel avec appel précoce à
Outlook. Ces mails comprennent 3 pièces jointes chacun et sont envoyés
nombreux à chaque fois.
Voici la routine d'envoi de mail :

Sub EnvoyerMailOutlook(TableauPJ() As String, Expediteur As String,
Destinataire As String, Sujet As String, Corps As String)

Application.DisplayAlerts = False

Dim i
Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim CurrFile As String
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
olmail.To = Destinataire
olmail.Subject = Sujet
olmail.Body = Corps
For i = 1 To 3
If TableauPJ(i) = "" Then Exit For
olmail.Attachments.Add TableauPJ(i)
Next i
olmail.Send
Application.DisplayAlerts = True
Set myolapp = CreateObject("Outlook.Application")
myolapp.Quit
Attendre 5
ol.Quit
End Sub

En surveillant le gestionnaire de tâches, j'ai remarqué que la macro ouvre
des instances d'Outlook sans jamais les refermer, si bien qu'après une
douzaine de mails, j'ai un message du genre 'Outlook est utilisé par trop
d'applications'. J'ai essayé à l'aveugle de modifier la routine, en
enlevant par exemple les articles 'New'. Il ne m'ouvrait alors qu'une
instance, mais n'envoyait jamais rien (bien que les mails se retourvent
dasns les 'Elements envoyés').
Comment puis-je refermer les instances ouvertes sans interrompre l'envoi
du mail (chaque mail faisant 400ko, son envoi peut prendre quelques
secondes) ?





Gadget
Le #16631361
OK je vais faire comme ça. Petite question : si ol.quit s'execute avant que
tous les mails aient été envoyés (ils sont assez gros), ça va poser un
problème, ou bien les derniers mails vont être envoyés indépendamment de la
fermeture ?
Merci.
"michdenis"
Ta procédure générale devrait plutôt ressembler à ceci :

Ce qui suit devrait être dans le même module :

'Dans le haut de ton module, déclaration de tes variables

Dim ol As Outlook.Application
Dim olmail As MailItem

'Dans la procédure qui appelle la sub "EnvoyerMailOutlook"
'tu crées une instance et c'est la même instance qui enverra
'tous tes messages. Il s'agit de créer la boucle pour renseigner
'adéquatement les variables de la sub "EnvoyerMailOutlook"
'Ceci n'a pas été testé évidemment, mais c'est la structure
'que tu devrais essayer de mettre en place.
'--------------------------------------------
Sub test()
Dim i
Dim CurrFile As String
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)

'Création de la boucle ....
tableau = "???"
Destinataire = "???"
Sujet = "???"
Corps = "???"
EnvoyerMailOutlook tableau, Destinataire, Sujet, Corps

'Quand tous tes courriels sont envoyés, tu supprimes tes objets.
ol.Quit
Set olmail = Nothing: Set ol = Nothing

End Sub
'--------------------------------------------
Sub EnvoyerMailOutlook(TableauPJ() As String, _
Destinataire As String, _
Sujet As String, _
Corps As String)

olmail.To = Destinataire
olmail.Subject = Sujet
olmail.Body = Corps
For i = 1 To 3
If TableauPJ(i) = "" Then Exit For
olmail.Attachments.Add TableauPJ(i)
Next i
olmail.Send
End Sub
'--------------------------------------------






"michdenis"
Remplace ceci :

Set myolapp = CreateObject("Outlook.Application")
myolapp.Quit

Par
Set ol = Nothing



"papou" message
de news:
Bonjour
Quelques questions :
1°) Comment appelles-tu la procédure EnvoyerMailOutlook ?
2°) Que viennent faire ces instructions dans la procédure ?
Set myolapp = CreateObject("Outlook.Application")
myolapp.Quit
Attendre 5

Cordialement
Pascal

"Gadget" 48b3c4a6$0$890$
Salut à tous.
J'ai fait une routine d'envoi de mails par VBA Excel avec appel précoce à
Outlook. Ces mails comprennent 3 pièces jointes chacun et sont envoyés
nombreux à chaque fois.
Voici la routine d'envoi de mail :

Sub EnvoyerMailOutlook(TableauPJ() As String, Expediteur As String,
Destinataire As String, Sujet As String, Corps As String)

Application.DisplayAlerts = False

Dim i
Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim CurrFile As String
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
olmail.To = Destinataire
olmail.Subject = Sujet
olmail.Body = Corps
For i = 1 To 3
If TableauPJ(i) = "" Then Exit For
olmail.Attachments.Add TableauPJ(i)
Next i
olmail.Send
Application.DisplayAlerts = True
Set myolapp = CreateObject("Outlook.Application")
myolapp.Quit
Attendre 5
ol.Quit
End Sub

En surveillant le gestionnaire de tâches, j'ai remarqué que la macro
ouvre
des instances d'Outlook sans jamais les refermer, si bien qu'après une
douzaine de mails, j'ai un message du genre 'Outlook est utilisé par
trop
d'applications'. J'ai essayé à l'aveugle de modifier la routine, en
enlevant par exemple les articles 'New'. Il ne m'ouvrait alors qu'une
instance, mais n'envoyait jamais rien (bien que les mails se retourvent
dasns les 'Elements envoyés').
Comment puis-je refermer les instances ouvertes sans interrompre l'envoi
du mail (chaque mail faisant 400ko, son envoi peut prendre quelques
secondes) ?









Gadget
Le #16662681
Merci MichDenis.
J'ai modifié ma proc à peu près comme indiqué - il semble que celà marche
mieux si on crée une instantce CreateItem(OlMailItem) par envoi, ce qui
n'est pas le cas dans la proc que tu proposes, qui en crée une seule pour
tous les envois .
J'ai maintenent un nouveau problème : mes mails étant assez gros, ils ne
sont pas encore tous envoyés quand survient ol.Quit. Sur mon poste, ça se
manifeste de deux manières : soit ca bloque, soit ma macro se termine
normalement, mais des instances d'Outlook restent ouvertes dans le
gestionnaire des tâches, et des mails 'disparaissent' : ils ne sont ni dans
la boite d'envoi ni dans les éléments envoyés.
Cela n'arrive pas si je configure Outlook pour ne pas envoyer/recevoir
automatiquement, mais sur demande : je dois alors après execution de ma
macro principale ouvrir Outlook et donner l'ordre manuellement d'envoyer.
Voici donc ma question : y a-t-il moyen de laisser Outlook en 'ne pas
envoyer/recevoir dès ouverture', afin que ma macro se déroule normalement
jusqu'au bout, et de donner l'ordre par macro d'envoyer/recevoir après, en
laissant outlook se débrouiller de celà sans bloquer ou retarder ma macro
excel ?
Je sais c'est un peu confus, mais bon c'est là ou j'en suis.
Merci d'avance si l'un d'entre vous a une solution...

"michdenis"
Ta procédure générale devrait plutôt ressembler à ceci :

Ce qui suit devrait être dans le même module :

'Dans le haut de ton module, déclaration de tes variables

Dim ol As Outlook.Application
Dim olmail As MailItem

'Dans la procédure qui appelle la sub "EnvoyerMailOutlook"
'tu crées une instance et c'est la même instance qui enverra
'tous tes messages. Il s'agit de créer la boucle pour renseigner
'adéquatement les variables de la sub "EnvoyerMailOutlook"
'Ceci n'a pas été testé évidemment, mais c'est la structure
'que tu devrais essayer de mettre en place.
'--------------------------------------------
Sub test()
Dim i
Dim CurrFile As String
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)

'Création de la boucle ....
tableau = "???"
Destinataire = "???"
Sujet = "???"
Corps = "???"
EnvoyerMailOutlook tableau, Destinataire, Sujet, Corps

'Quand tous tes courriels sont envoyés, tu supprimes tes objets.
ol.Quit
Set olmail = Nothing: Set ol = Nothing

End Sub
'--------------------------------------------
Sub EnvoyerMailOutlook(TableauPJ() As String, _
Destinataire As String, _
Sujet As String, _
Corps As String)

olmail.To = Destinataire
olmail.Subject = Sujet
olmail.Body = Corps
For i = 1 To 3
If TableauPJ(i) = "" Then Exit For
olmail.Attachments.Add TableauPJ(i)
Next i
olmail.Send
End Sub
'--------------------------------------------






"michdenis"
Remplace ceci :

Set myolapp = CreateObject("Outlook.Application")
myolapp.Quit

Par
Set ol = Nothing



"papou" message
de news:
Bonjour
Quelques questions :
1°) Comment appelles-tu la procédure EnvoyerMailOutlook ?
2°) Que viennent faire ces instructions dans la procédure ?
Set myolapp = CreateObject("Outlook.Application")
myolapp.Quit
Attendre 5

Cordialement
Pascal

"Gadget" 48b3c4a6$0$890$
Salut à tous.
J'ai fait une routine d'envoi de mails par VBA Excel avec appel précoce à
Outlook. Ces mails comprennent 3 pièces jointes chacun et sont envoyés
nombreux à chaque fois.
Voici la routine d'envoi de mail :

Sub EnvoyerMailOutlook(TableauPJ() As String, Expediteur As String,
Destinataire As String, Sujet As String, Corps As String)

Application.DisplayAlerts = False

Dim i
Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim CurrFile As String
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
olmail.To = Destinataire
olmail.Subject = Sujet
olmail.Body = Corps
For i = 1 To 3
If TableauPJ(i) = "" Then Exit For
olmail.Attachments.Add TableauPJ(i)
Next i
olmail.Send
Application.DisplayAlerts = True
Set myolapp = CreateObject("Outlook.Application")
myolapp.Quit
Attendre 5
ol.Quit
End Sub

En surveillant le gestionnaire de tâches, j'ai remarqué que la macro
ouvre
des instances d'Outlook sans jamais les refermer, si bien qu'après une
douzaine de mails, j'ai un message du genre 'Outlook est utilisé par
trop
d'applications'. J'ai essayé à l'aveugle de modifier la routine, en
enlevant par exemple les articles 'New'. Il ne m'ouvrait alors qu'une
instance, mais n'envoyait jamais rien (bien que les mails se retourvent
dasns les 'Elements envoyés').
Comment puis-je refermer les instances ouvertes sans interrompre l'envoi
du mail (chaque mail faisant 400ko, son envoi peut prendre quelques
secondes) ?









michdenis
Le #16667441
Pourquoi tu n'utilises pas quelque chose comme ceci...
ça règlerait bien des problèmes ....


Pour ton information, la bibliothèque responsable est :
Bibliothèque : CDO
Fichier responsable : c:Windowssystem32cdosys.dll
Référence : Microsoft CDO for Windows 2000 Library




'-----------------------------------------
Sub test()

Dim ObjMail As Object
Dim ServeurSMTP As String, Texte As String
Dim Suget As String, Fichier As String
Dim Destinataire As String, Expediteur As String
Dim FichiersJoints As String
Dim AutresDestinataires As String

'*********** à Définir******************
ServeurSMTP = "smtp. ...à définir"
Sujet = "La raison du message "
Texte = "Texte du Message "
'Si plusieurs fichiers : séparer par un point-virgule
FichiersJoints = "c:classeur1.xls" ' si requis
Destinataire = ""
Expediteur = ""
'Si plusieurs adresses : séparer par un point-virgule"
AutresDestinataires = ""
'****************************************

Set ObjMail = CreateObject("CDO.Message")
With ObjMail
.To = Destinataire ' ""
.From = Expediteur
.CC = AutresDestinataires
.Subject = Sujet
.MimeFormatted = True
.GetStream.Charset = cdoISO_8859_15
.BodyPart.Charset = cdoISO_8859_15
.BodyPart.ContentTransferEncoding = "base64"
.TextBody = Texte
If Dir(Fichier) <> "" Then
.AddAttachment FichiersJoints
End If
With .Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") =
2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
ServeurSMTP
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
= 25
.Update
End With
.Send
End With

End Sub
'-----------------------------------------




"Gadget" 48b3c4a6$0$890$
Salut à tous.
J'ai fait une routine d'envoi de mails par VBA Excel avec appel précoce à
Outlook. Ces mails comprennent 3 pièces jointes chacun et sont envoyés
nombreux à chaque fois.
Voici la routine d'envoi de mail :

Sub EnvoyerMailOutlook(TableauPJ() As String, Expediteur As String,
Destinataire As String, Sujet As String, Corps As String)

Application.DisplayAlerts = False

Dim i
Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim CurrFile As String
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
olmail.To = Destinataire
olmail.Subject = Sujet
olmail.Body = Corps
For i = 1 To 3
If TableauPJ(i) = "" Then Exit For
olmail.Attachments.Add TableauPJ(i)
Next i
olmail.Send
Application.DisplayAlerts = True
Set myolapp = CreateObject("Outlook.Application")
myolapp.Quit
Attendre 5
ol.Quit
End Sub

En surveillant le gestionnaire de tâches, j'ai remarqué que la macro ouvre
des instances d'Outlook sans jamais les refermer, si bien qu'après une
douzaine de mails, j'ai un message du genre 'Outlook est utilisé par trop
d'applications'. J'ai essayé à l'aveugle de modifier la routine, en enlevant
par exemple les articles 'New'. Il ne m'ouvrait alors qu'une instance, mais
n'envoyait jamais rien (bien que les mails se retourvent dasns les 'Elements
envoyés').
Comment puis-je refermer les instances ouvertes sans interrompre l'envoi du
mail (chaque mail faisant 400ko, son envoi peut prendre quelques secondes)
?
Gadget
Le #16685661
Merci encore MichDenis.
Seul petit problème : je n'arrive pas à exploiter l'énorme base de données
de MSDN : par exemple, je voulais ajouter un avis de lecture. Je suis allé
piocher dans les caractéristiques de CDO dans la base MSDN, et, me référant
à la ligne VB :
Set ObjMail = CreateObject("CDO.Message")
J'ai supposé que l'objet CDO qui était manipulé est 'Message' ; j'ai trouvé
cet objet dans la base msdn
(http://msdn.microsoft.com/en-us/library/ms526130(EXCHG.10).aspx), et j'ai
trouvé là propriété DeliveryReceipt. J'ai donc ajouté :
.DeliveryReceipt = True
au code, et ça ne marche pas. D'ailleurs je ne retrouve pas dans la liste
des propriétés/Méthodes de l'objet Message de MSDN celles qui sont utilisées
dans le code. Ce n'est donc pas cet objet auquel on fait référence. Comme
j'aime comprendre ce que je copie/colle (pour éviter de redemander 10 fois
la même chose sur les fora), pourrais-tu m'expliquer succintement comment
utiliser la base MSDN pour retrouver l'objet que tu as utilisé, ou bien me
donner un lien sur un tutoriel quelconque ?
Merci.

"michdenis"
Pourquoi tu n'utilises pas quelque chose comme ceci...
ça règlerait bien des problèmes ....


Pour ton information, la bibliothèque responsable est :
Bibliothèque : CDO
Fichier responsable : c:Windowssystem32cdosys.dll
Référence : Microsoft CDO for Windows 2000 Library




'-----------------------------------------
Sub test()

Dim ObjMail As Object
Dim ServeurSMTP As String, Texte As String
Dim Suget As String, Fichier As String
Dim Destinataire As String, Expediteur As String
Dim FichiersJoints As String
Dim AutresDestinataires As String

'*********** à Définir******************
ServeurSMTP = "smtp. ...à définir"
Sujet = "La raison du message "
Texte = "Texte du Message "
'Si plusieurs fichiers : séparer par un point-virgule
FichiersJoints = "c:classeur1.xls" ' si requis
Destinataire = ""
Expediteur = ""
'Si plusieurs adresses : séparer par un point-virgule"
AutresDestinataires = ""
'****************************************

Set ObjMail = CreateObject("CDO.Message")
With ObjMail
.To = Destinataire ' ""
.From = Expediteur
.CC = AutresDestinataires
.Subject = Sujet
.MimeFormatted = True
.GetStream.Charset = cdoISO_8859_15
.BodyPart.Charset = cdoISO_8859_15
.BodyPart.ContentTransferEncoding = "base64"
.TextBody = Texte
If Dir(Fichier) <> "" Then
.AddAttachment FichiersJoints
End If
With .Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") > 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")
> ServeurSMTP

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
= 25
.Update
End With
.Send
End With

End Sub
'-----------------------------------------




"Gadget" 48b3c4a6$0$890$
Salut à tous.
J'ai fait une routine d'envoi de mails par VBA Excel avec appel précoce à
Outlook. Ces mails comprennent 3 pièces jointes chacun et sont envoyés
nombreux à chaque fois.
Voici la routine d'envoi de mail :

Sub EnvoyerMailOutlook(TableauPJ() As String, Expediteur As String,
Destinataire As String, Sujet As String, Corps As String)

Application.DisplayAlerts = False

Dim i
Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim CurrFile As String
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
olmail.To = Destinataire
olmail.Subject = Sujet
olmail.Body = Corps
For i = 1 To 3
If TableauPJ(i) = "" Then Exit For
olmail.Attachments.Add TableauPJ(i)
Next i
olmail.Send
Application.DisplayAlerts = True
Set myolapp = CreateObject("Outlook.Application")
myolapp.Quit
Attendre 5
ol.Quit
End Sub

En surveillant le gestionnaire de tâches, j'ai remarqué que la macro ouvre
des instances d'Outlook sans jamais les refermer, si bien qu'après une
douzaine de mails, j'ai un message du genre 'Outlook est utilisé par trop
d'applications'. J'ai essayé à l'aveugle de modifier la routine, en
enlevant
par exemple les articles 'New'. Il ne m'ouvrait alors qu'une instance,
mais
n'envoyait jamais rien (bien que les mails se retourvent dasns les
'Elements
envoyés').
Comment puis-je refermer les instances ouvertes sans interrompre l'envoi
du
mail (chaque mail faisant 400ko, son envoi peut prendre quelques secondes)
?





michdenis
Le #16687641
Sub test()

Dim ObjMail As Object
Dim ServeurSMTP As String, Texte As String
Dim Suget As String, Fichier As String
Dim Destinataire As String, Expediteur As String
Dim FichiersJoints As String
Dim AutresDestinataires As String

'*********** à Définir******************
ServeurSMTP = "smtp....."
Sujet = "La raison du message "
Texte = "Texte du Message "
'Si plusieurs fichiers : séparer par un point-virgule
FichiersJoints = "c:classeur1.xls" ' si requis
Destinataire = ""
Expediteur = ""
'Si plusieurs adresses : séparer par un point-virgule"
AutresDestinataires = ""
'****************************************

Set ObjMail = CreateObject("CDO.Message")
With ObjMail
With .Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") =
2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
ServeurSMTP
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
= 25

'*********************************
.Item(cdoDispositionNotificationTo) = ""
.Item(cdoReturnReceiptTo) = ""
'*********************************
.Update
End With
.To = Destinataire
.From = Expediteur
.CC = AutresDestinataires
.Subject = Sujet
.MimeFormatted = True
.GetStream.Charset = cdoISO_8859_15
.BodyPart.Charset = cdoISO_8859_15
.BodyPart.ContentTransferEncoding = "base64"
.TextBody = Texte
If Dir(Fichier) <> "" Then
.AddAttachment FichiersJoints
End If
.Send
End With

End Sub
Gadget
Le #16689031
Merci encore.
Les constantes cdoDispositionNotificationTo et cdoReturnReceiptTo n'étant
pas définies dans mon projet, je les ai remplacées par leur valeur (trouvées
sur le net, respectivement
"urn:schemas:mailheader:disposition-notification-to" et
"urn:schemas:mailheader:return-receipt-to". Ca ne bugge pas mais ça ne donne
rien (je me suis envoyé un mail qui ne m'a pas demandé d'avis de lecture).
Est-ce que j'ai oublié quelque chose ?
Merci.
"michdenis"
Sub test()

Dim ObjMail As Object
Dim ServeurSMTP As String, Texte As String
Dim Suget As String, Fichier As String
Dim Destinataire As String, Expediteur As String
Dim FichiersJoints As String
Dim AutresDestinataires As String

'*********** à Définir******************
ServeurSMTP = "smtp....."
Sujet = "La raison du message "
Texte = "Texte du Message "
'Si plusieurs fichiers : séparer par un point-virgule
FichiersJoints = "c:classeur1.xls" ' si requis
Destinataire = ""
Expediteur = ""
'Si plusieurs adresses : séparer par un point-virgule"
AutresDestinataires = ""
'****************************************

Set ObjMail = CreateObject("CDO.Message")
With ObjMail
With .Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") > 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")
> ServeurSMTP

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
= 25

'*********************************
.Item(cdoDispositionNotificationTo) = ""
.Item(cdoReturnReceiptTo) = ""
'*********************************
.Update
End With
.To = Destinataire
.From = Expediteur
.CC = AutresDestinataires
.Subject = Sujet
.MimeFormatted = True
.GetStream.Charset = cdoISO_8859_15
.BodyPart.Charset = cdoISO_8859_15
.BodyPart.ContentTransferEncoding = "base64"
.TextBody = Texte
If Dir(Fichier) <> "" Then
.AddAttachment FichiersJoints
End If
.Send
End With

End Sub



Publicité
Poster une réponse
Anonyme