ouvrir un Mailto: pour Gmail ?

[leonserbe]

bonjour,

Je souhaiterai faire un jolie bouton permettant d'envoyer un email.
Notre organisation migrant d'un client mail (TheBat) a Google Apps, je dois trouver une solution clean pour envoyer un email.

voici mon debut de solution :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub cmd_send_incoming_Click9_Click()
 
    Dim IE As Object
    Set IE = CreateObject("internetexplorer.application")
 
    For i = 2 To 10
    listEmail = Cells(i, 7).Value & ", " & listEmail
    Next i
 
    IE.Navigate ("mailto:" & listEmail & "")
    IE.Visible = True: IE.Top = 0: IE.Left = 0
 
    Application.Wait Now + 5 / 3600 / 24
 
    IE.Visible = False
    Set IE = Nothing
End Sub

mais c'est pas terrible...
ps : et pour mettre une piece jointe ?

[leonserbe]

personne n'a les skills pour cette question ? aurai-je trouve une question insoluble ?