Bonjour,
Mon besoin : Envoyer mail à travers Excel qui contient une feuille excel de mon classeur
Mon code temporaire VB où mon script se tape cellule après cellule:
Sub test()
Shell "D:\applications\mail\SendMail.exe /smtpserver 192.168.XXX.XX /to monnom@temp.com /from mail@tempcom /subject INFO /body " _
& Worksheets("Saisie Matériel").Range("B2").Value _
& " " & Worksheets("Saisie Matériel").Range("C2").Value _
& " " & Worksheets("Saisie Matériel").Range("D3").Value _
& " " & Worksheets("Saisie Matériel").Range("E4").Value _
& " " & Worksheets("Saisie Matériel").Range("F2").Value _
& " " & Worksheets("Saisie Matériel").Range("G2").Value _
& " " & Worksheets("Saisie Matériel").Range("H2").Value _
& " " & Worksheets("Saisie Matériel").Range("I2").Value _
& " " & Worksheets("Saisie Matériel").Range("J2").Value _
& " " & Worksheets("Saisie Matériel").Range("K2").Value _
, vbMaximizedFocus
End Sub
Non je ne veux pas utiliser Outlook, ni un autre client de messagerie.
En vous remerciant par avance pour vos aides.
Mon besoin : Envoyer mail à travers Excel qui contient une feuille excel de mon classeur
Mon code temporaire VB où mon script se tape cellule après cellule:
Sub test()
Shell "D:\applications\mail\SendMail.exe /smtpserver 192.168.XXX.XX /to monnom@temp.com /from mail@tempcom /subject INFO /body " _
& Worksheets("Saisie Matériel").Range("B2").Value _
& " " & Worksheets("Saisie Matériel").Range("C2").Value _
& " " & Worksheets("Saisie Matériel").Range("D3").Value _
& " " & Worksheets("Saisie Matériel").Range("E4").Value _
& " " & Worksheets("Saisie Matériel").Range("F2").Value _
& " " & Worksheets("Saisie Matériel").Range("G2").Value _
& " " & Worksheets("Saisie Matériel").Range("H2").Value _
& " " & Worksheets("Saisie Matériel").Range("I2").Value _
& " " & Worksheets("Saisie Matériel").Range("J2").Value _
& " " & Worksheets("Saisie Matériel").Range("K2").Value _
, vbMaximizedFocus
End Sub
Non je ne veux pas utiliser Outlook, ni un autre client de messagerie.
En vous remerciant par avance pour vos aides.