C
ChuBaKa
Guest
Bonjour,
Ci-joint codes trouvés sur le forum pour envoi de données par outlook express depuis Excel:
Sub MailOXpress()
Dim dest$, sujet$, texte$
Dim cell As Range
Application.ScreenUpdating = False
dest = "adresse@mail"
sujet = " titre de ton mail"
texte = "ta plage de cellule a envoyer"
Shell "C:\Program Files\Outlook Express\msimn.exe " & "/mailurl:mailto:" & dest & "?subject=" & sujet & "&Body=" & texte
SendKeys "%s"
End Sub
Quelqu'un saurait-il modifier ces codes pour un envoi de fichier excel ou d'une feuille excel via la méssagerie Lotus ?
Par avance, merci.
Ci-joint codes trouvés sur le forum pour envoi de données par outlook express depuis Excel:
Sub MailOXpress()
Dim dest$, sujet$, texte$
Dim cell As Range
Application.ScreenUpdating = False
dest = "adresse@mail"
sujet = " titre de ton mail"
texte = "ta plage de cellule a envoyer"
Shell "C:\Program Files\Outlook Express\msimn.exe " & "/mailurl:mailto:" & dest & "?subject=" & sujet & "&Body=" & texte
SendKeys "%s"
End Sub
Quelqu'un saurait-il modifier ces codes pour un envoi de fichier excel ou d'une feuille excel via la méssagerie Lotus ?
Par avance, merci.