Dans une macro Excel 97, je souhaite envoyé par mail (via Oulook) le contenu
d'une plage de cellule Excel.
J'arrive bien à programmer l'envoi du mail aux personnes concernés, mais
n'arrive pas à envoyer une plage de cellules donnée.
En clair, faire le Edition/Copier dans Excel et en VBA, programmer le
Edition/Coller qu'on ferait dans Outlook.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Philippe Noss
Bonjour, dans Exoutils il y une fonction d'envoi d'email avec Excel (Menu Divers). le code dans Mail.xlo http://nossphil.perso.cegetel.net/exoutils.html
Ci dessous une partie du code : Sub envoyer_mail(ByVal Adresse As String, ByVal sujet As String, ByVal message As String) Dim outlookobj As Object
'on utilise ici OLE automation 'création d'un objet renvoyant l'application MS Outlook elle-même Set outlookobj = CreateObject("Outlook.Application")
'création d'un nouveau message With outlookobj.createitem(olmailitem)
'ajout de l'adresse .Recipients.Add (Adresse)
'sujet .Subject = sujet
'corps .Body = message
'envoi .send
End With
'on libère l'objet créé Set outlookobj = Nothing End Sub
PN
Bonjour, dans Exoutils il y une fonction d'envoi d'email avec Excel
(Menu Divers). le code dans Mail.xlo
http://nossphil.perso.cegetel.net/exoutils.html
Ci dessous une partie du code :
Sub envoyer_mail(ByVal Adresse As String, ByVal sujet As String, ByVal
message As String)
Dim outlookobj As Object
'on utilise ici OLE automation
'création d'un objet renvoyant l'application MS Outlook elle-même
Set outlookobj = CreateObject("Outlook.Application")
'création d'un nouveau message
With outlookobj.createitem(olmailitem)
'ajout de l'adresse
.Recipients.Add (Adresse)
'sujet
.Subject = sujet
'corps
.Body = message
'envoi
.send
End With
'on libère l'objet créé
Set outlookobj = Nothing
End Sub
Bonjour, dans Exoutils il y une fonction d'envoi d'email avec Excel (Menu Divers). le code dans Mail.xlo http://nossphil.perso.cegetel.net/exoutils.html
Ci dessous une partie du code : Sub envoyer_mail(ByVal Adresse As String, ByVal sujet As String, ByVal message As String) Dim outlookobj As Object
'on utilise ici OLE automation 'création d'un objet renvoyant l'application MS Outlook elle-même Set outlookobj = CreateObject("Outlook.Application")
'création d'un nouveau message With outlookobj.createitem(olmailitem)
'ajout de l'adresse .Recipients.Add (Adresse)
'sujet .Subject = sujet
'corps .Body = message
'envoi .send
End With
'on libère l'objet créé Set outlookobj = Nothing End Sub
PN
inconnu
Merci pour cette réponse.
Néanmoins, le problème qui se pose à moi, est de récupérer dans le corps du message outlook, le contenu du presse papier avec le format, soit le texte ET la mise en forme. Les propriétés Clipboard et GetText d'Excel ne correspondent pas à mes besoins.
Si vous avez une idée, je suis preneur.
Encore merci Bernard
"Philippe Noss" a écrit dans le message de news:
Bonjour, dans Exoutils il y une fonction d'envoi d'email avec Excel (Menu Divers). le code dans Mail.xlo http://nossphil.perso.cegetel.net/exoutils.html
Ci dessous une partie du code : Sub envoyer_mail(ByVal Adresse As String, ByVal sujet As String, ByVal message As String) Dim outlookobj As Object
'on utilise ici OLE automation 'création d'un objet renvoyant l'application MS Outlook elle-même Set outlookobj = CreateObject("Outlook.Application")
'création d'un nouveau message With outlookobj.createitem(olmailitem)
'ajout de l'adresse .Recipients.Add (Adresse)
'sujet .Subject = sujet
'corps .Body = message
'envoi .send
End With
'on libère l'objet créé Set outlookobj = Nothing End Sub
PN
Merci pour cette réponse.
Néanmoins, le problème qui se pose à moi, est de récupérer dans le corps du
message outlook, le contenu du presse papier avec le format, soit le texte
ET la mise en forme.
Les propriétés Clipboard et GetText d'Excel ne correspondent pas à mes
besoins.
Si vous avez une idée, je suis preneur.
Encore merci
Bernard
"Philippe Noss" <exefac@exefac.com> a écrit dans le message de news:
1126556588.740786.198550@g14g2000cwa.googlegroups.com...
Bonjour, dans Exoutils il y une fonction d'envoi d'email avec Excel
(Menu Divers). le code dans Mail.xlo
http://nossphil.perso.cegetel.net/exoutils.html
Ci dessous une partie du code :
Sub envoyer_mail(ByVal Adresse As String, ByVal sujet As String, ByVal
message As String)
Dim outlookobj As Object
'on utilise ici OLE automation
'création d'un objet renvoyant l'application MS Outlook elle-même
Set outlookobj = CreateObject("Outlook.Application")
'création d'un nouveau message
With outlookobj.createitem(olmailitem)
'ajout de l'adresse
.Recipients.Add (Adresse)
'sujet
.Subject = sujet
'corps
.Body = message
'envoi
.send
End With
'on libère l'objet créé
Set outlookobj = Nothing
End Sub
Néanmoins, le problème qui se pose à moi, est de récupérer dans le corps du message outlook, le contenu du presse papier avec le format, soit le texte ET la mise en forme. Les propriétés Clipboard et GetText d'Excel ne correspondent pas à mes besoins.
Si vous avez une idée, je suis preneur.
Encore merci Bernard
"Philippe Noss" a écrit dans le message de news:
Bonjour, dans Exoutils il y une fonction d'envoi d'email avec Excel (Menu Divers). le code dans Mail.xlo http://nossphil.perso.cegetel.net/exoutils.html
Ci dessous une partie du code : Sub envoyer_mail(ByVal Adresse As String, ByVal sujet As String, ByVal message As String) Dim outlookobj As Object
'on utilise ici OLE automation 'création d'un objet renvoyant l'application MS Outlook elle-même Set outlookobj = CreateObject("Outlook.Application")
'création d'un nouveau message With outlookobj.createitem(olmailitem)
'ajout de l'adresse .Recipients.Add (Adresse)
'sujet .Subject = sujet
'corps .Body = message
'envoi .send
End With
'on libère l'objet créé Set outlookobj = Nothing End Sub
