Excel vers Outlook

[Dinguirard]

Bonjour,

je souhaite, par macro vba, copier une sélection de cellules disjointes depuis Excel (objet range) vers le corps d'un message outlook qui contient en outre un message banalisé.

Le résultat visé est un mail dont le corps de message annonce "veuillez trouver ci-dessous..." suivi du tableau constitué de ma sélection de cellules Excel.

J'ai déjà configuré le mail pour lui passer le destinataire, le sujet, le message banalisé.
Impossible de coller ma sélection de cellules dans le mail à la suite de mon message banalisé.

J'espère que l'un des internautes de ce site pourra m'aiguiller,
cordialement, FD

 

[Mab]

salut voici un petit bout de programme que j'ai établi et qui fonctionne parfaitement dans mon programme il suffit juste de l'associer (à un bouton)




Private Sub CommandButton3_Click()
Dim ol As Object, myItem As Object
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olMailItem)
myItem.to = "jtheraud@gtie-thermique.fr"
MsgBox "Now sending to " & myItem.to

ActiveWorkbook.SendMail _
Recipients:=("xxxxxx@xxxxxxxxx.fr"), _
Subject:="voici ma décade"

Set ol = Nothing

End Sub

a+ et bon courage

 

[Dinguirard]

Bonjour,

Merci pour cette réponse, mais elle ne répond pas tout à fait à mon besoin.
Pour ceux que cela intéresse, voici le bout de code que j'utilise, ET QUE J'AI PRIS SUR UN SITE DONT J'AI PERDU LE NOM DESOLE POUR L'HOMMAGE A L'AUTEUR où l'on voit bien que je passe une chapine de texte à mon corps de message "mailitem.body", et que je ne parviens pas à faire évoluer pour lui passer mon objet Range (variable "titres" dans le code).

Sub SendEMail()
Dim htmltitres As String

Dim OotObj As New Outlook.Application

lettre = "bonjour voici le tableau"
sujetmail = "tableau hebdomadaire"

'Crée un objet récipient qui est la liste des destinataires ...
Dim ListeDestinataire As Outlook.Recipient

'crée l'Objet Message ...
Dim Message As Outlook.MailItem

'Affecte à "Message" un nouveau message
Set Message = OotObj.CreateItem(0)

'Défini le "Sujet" c'est à dire L'Objet de ce message
Message.Subject = sujetmail

'le Corps "Body" le texte du message
Message.Body = lettre
'C EST ICI QUE JE VEUX AJOUTER EN PLUS DE lettre MON BOUT DE TABLEAU

'L'affiche ( Voir)
Message.Display

'Ajoute un destinataire ...
Set ListeDestinataire = Message.Recipients.Add(destinatairemail)

Message.Send

End Sub