Copier dans Excel et Coller dans Outlook en VBA

Kill3Hoshigaki Messages postés 11 Date d'inscription   Statut Membre Dernière intervention   -  
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour à tous,
J’aurai besoin de vos compétences en VBA via Excel. Etant amateur et moins expérimenté, j'éprouve des difficultés à copier une plage de cellule dans le corps du mail. La macro fonctionne, le mail est en envoyé mais aucune une plage de cellule n'est copiée. Voici le code

Sub UseOutlook()
Dim MonOutlook As Object
Dim MonMessage As Object
'Une instance d'outlook
Set MonOutlook = CreateObject("Outlook.Application")
'Un element Outlook qui sera un message e-mail
Set MonMessage = MonOutlook.CreateItem(0)
'Definir les destinataires et options du mail
MonMessage.To = Sheets("EVU").Range("A1").Value
MonMessage.Cc = "Hoshigaki@ccm.com"
MonMessage.Subject = "Teste d'envoi de mail via outlook"
'Le corps du message est divise en 2 lignes
Corps = "Voici les resultats, enjoy!"
' Chr (13) & Chr (10) = Touche ENTRER
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & Sheets("EVU").Range("C1:D3").Value
MonMessage.Body = Corps
MonMessage.send
Set MonOutlook = Nothing 'On ferme!
End Sub


Je vous remercie pour toutes les réponses et de votre aide.
A voir également:

1 réponse

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
0