Piloter Outlook

Question

Bonjours à tous,

Dans mon application je dois faire ouvrir Outlook automatique, avec piece jointe et email et faire envoyer le email manuelement. Je procède comme suit :

Dim o 
As Outlook.Applicationo = 

New Outlook.Application

Dim mail 
As Outlook.MailItem
mail = o.CreateItem(Outlook.OlItemType.olMailItem)

With mail

.Subject = 
"2 fichiers : " & cbProfil.Text & 
" " & strCentre & 
" " & Today.ToShortDateString
.To = 
[mailto:adresse@hotmail.com adresse@hotmail.com]
.Attachments.Add(
"G:\Typom" & Today.Year & 
"" & MonthName(Today.Month) & 
"" & cbProfil.Text & 
" " & strCentre & 
"_" & Today.ToShortDateString & 
"excel.rar")
.Attachments.Add(
"G:\Typom" & Today.Year & 
"" & MonthName(Today.Month) & 
"" & cbProfil.Text & 
" " & strCentre & 
"_" & Today.ToShortDateString & 
"texte.rar")
.Display()

End
With

Le problème est que lorsque la personne veut envoyer sont courriel et qu'elle click sur Envoyer de la fenêtre Outlook, la fenêtre se ferme et le courriel s'en vas dans la Boite d'envoi au lieu de partir directement..  

Comment faire pour que le Email parte réellement ?

Merci beaucoup

Jim

cs_clairedelune · Answer

salut Jim
je viens juste d'intégrer ce type de programme dans une appli
c très
Tu y étais presque. Au lieu d'utiliser la méthode Display qui ouvre Outlook et attends tes ordres, utilise la methode Send
et hop, c parti !


Au plaisir ! 
fred.

On a beau courir, on revient toujours à la source .

Goth25 · Answer

Salut Fred et merci de ta réponse, par contre le fait de garder ma fenêtre ouverte est volontaire. Je voudrais que l'utilisateur finisse le travaille en vérifiant si tout est ok et l'envoi manuellement tu comprends ?

Mais c'est peut etre un problème de sécurité... car même si la personne click sur le bouton envoyer de la fenêtre outlook, le courriel vas directement dans la boite d'envoi  et outlook se ferme.

Jim

Bonne journée !

cs_clairedelune · Answer

OK, c plus clair pour moi. Oui, en effet ce doit être un paramétrage de Outlook sur le poste. Mais là, je dois avouer que mes compétences Outlook sont limitées

On a beau courir, on revient toujours à la source .

Piloter Outlook

3 réponses

Votre réponse

Discussions similaires