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 :


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Dim o As Outlook.Application
o = New Outlook.Application
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Dim mail As Outlook.MailItem
mail = o.CreateItem(Outlook.OlItemType.olMailItem)
 
With mail
 
.Subject = "2 fichiers : " & cbProfil.Text & " " & strCentre & " " & Today.ToShortDateString
.To = <a href="mailto:adresse@hotmail.com">adresse@hotmail.com</a>
.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