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 :
mais c'est pas terrible...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
ps : et pour mettre une piece jointe ?
Partager