Discussion :

[Rammstein]

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

[Danyel]

Personnellement je pense que limiter l'envoi d'email à Outlook, c'est peu convivial et surtout trop brut.
Outlook n'est pas utilise par 100% des internautes et il y a aussi ceux qui le desinstalle complement et meme la version express. (j'en suis)

[Rammstein]

Je suis d'accord avec toi, mais la boite ou je travail utilise outlook uniquement.

Alors 2 solutions s'impose :

1 - Soit que je programme moi même ma propre fenêtre d'envoi de courriel

2 - Je conserve Outlook et je trouve la facon de le faire fonctionner.

Personnellement je préfèrerais savoir pkoi mon choix 2 ne me permet pas de le faire vue que tout le code semble correct.

Jim

[Danyel]

J'ai pas Outlook et je connais pas la fonction que tu utilises, mais en lisant le code, je dirais :

remplace : mail = o.CreateItem(Outlook.OlItemType.olMailItem)
par : mail = o.SendItem(Outlook.OlItemType.olMailItem)

(envoi au lieu de creer ... ou un truc dans le genre ... non ?)

[Rammstein]

Merci bcp de ton aide.

En fait, tout le code me donne le résultat voulu c'est a dire :

Il ouvre la fenêtre Outlook avec pieces attaché et adresse que je voulais donner.

La ou sa se complique c'est que je veux que sa soit l'utilisateur qui termine l'opération sur la fenêtre active. C'est a dire qu'elle vérifie que toute les informations sont ok et qu'elle click sur le Envoyer de Outlook.

j'aurais pu l'envoyer automatiquement par le code en mettant .Send au lieu de .display mais il faut que sa soit l'utilisateur qui le fasse elle même. Tu comprends ?

Mais lorsqu'elle le fait, la boite de courriel outlook disparait et le email se place dans boite d'envoi au lieux de s'envoyer comme il devrait se faire.


Jim

[Danyel]

Ok j'ai compris la manoeuvre.
Alors, avec outlook je sais pas si c'est possible, mais tu crées une regle specifique pour ton genre qui controle s'il est dans la boite d'envoi et dans ce cas, il l'envoi, ou encore tu rajoutes une configuration qui envoi apres x temps, les emails presents dans la boite d'envoi.

Personnellement, je te conseille de faire une petite appli qui fait exactement ce que tu veux, comme ca le jour ou ils s'apercoivent que c'est de la daube et qu'il change de mailer, ca continue de fonctionner.

[Rammstein]

Je crois en effet que sa sera le meilleur choix. Je vais donc me tapper une petite lecture du framework et du systems.net si je ne m'abuse.


Merci beaucoup de ton aide.


Jim

[Danyel]

En attendant que tu le mettes au point, crée la regle (je pense que ca doit etre possible meme avec outlook)
- elle verifie si un mail avec un certain nom d'email est present et si c'est le cas, ben ca l'envoi.
Ca prends 1 minute a faire

Sinon essaye The Bat!

[Danyel]

Oupssss j'ai oublie de te dire : pense à si c'est le cas.
Et bienvenue parmis nous

...

Bon allez je retourne bosser

[Rammstein]

Ouais sa pourrais toujours servir en attendant


Merci encore

Jim