Discussion :

[rudbyman52]

Bonjour à tous,

Voilà je cherche à faire, un peu comme sur le net, un mailto qui ouvre la messagerie par defaut avec un sujet bien défini et l'adresse du destinataire.

Seulement je ne trouves pas comment faire, j'ai vu comment envoyer un mail par smtp mais pas par la messagerie du client qui est défini par defaut.

Avez-vous une idée ?

D'avance, merci pour votre aide.

[Pol63]

et bien à priori si tu fais démarrer / executer et que tu tapes mailto:adresse
ca lance le lecteur de mail par défaut avec un nouveau mail et la bonne adresse

donc avec un process.start ou shell tu doit pouvoir t'en sortir
enfin si y a tout ce qu'il faut pour remplir le mail à part l'adresse ...

[rudbyman52]

Finalement j'ai trouvé ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim myApp As New Process
        Dim theStringBuilder As New System.Text.StringBuilder()
        theStringBuilder.Append("mailto:info@google.com;" + vbCrLf)
        theStringBuilder.Append("?subject=Question" + vbCrLf)
        myApp = System.Diagnostics.Process.Start(theStringBuilder.ToString())

Ca fonctionne parfaitement, ca va bine prendre la messagerie par defaut.

Parcontre, pour ouvrir une page web avec le navigateur par defaut je n'ais pas trouvé

Juste avec IE :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Process.Start("IExplore.exe", "www.google.com")

C'est possible de prendre le navigateur par defaut de Windows ?

[Pol63]

je vois que t'as vachement lu ce que j'ai dit déjà ...
parce que ca correspond à ce qu'à t'as trouvé mais t'as pas remarqué ...

et pour ouvrir un site avec le navigateur par défaut, c'est la meme chose
si tu fais demarrer executer http://google.fr ca marche

[rudbyman52]

je vois que t'as vachement lu ce que j'ai dit déjà ...
parce que ca correspond à ce qu'à t'as trouvé mais t'as pas remarqué ...

J'ai bien lus ce que tu m'avais écris, c'est d'ailleurs gràce à ca que j'ai trouvé la solution, en cherchant par rapport à "process.start" sur google

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim myApp As New Process
        Dim theStringBuilder As New System.Text.StringBuilder()
        theStringBuilder.Append("www.google.com" + vbCrLf)
        myApp = System.Diagnostics.Process.Start(theStringBuilder.ToString())

Merci pour ton aide, c'est sympa