Nicolas33gin33!
XLDnaute Nouveau
Bonjour à tous,
J'essaye de créer une macro pour faire des envois en 1 clic.
Sur cette macro figure le destinataire, l'objet, un corps de texte et la page active d'Excel copier coller.
J'arrive à tout sauf à ce copier coller.
J'ai déjà vu des solutions mais sans résultats (je dois mal les insérer à ma macro).
j'ai un tableau C4:H30 que je souhaiterai envoyer via un clic par un copier coller.
Pourriez-vous m'éclairer svp ?
J'essaye de créer une macro pour faire des envois en 1 clic.
Sur cette macro figure le destinataire, l'objet, un corps de texte et la page active d'Excel copier coller.
J'arrive à tout sauf à ce copier coller.
J'ai déjà vu des solutions mais sans résultats (je dois mal les insérer à ma macro).
j'ai un tableau C4:H30 que je souhaiterai envoyer via un clic par un copier coller.
Pourriez-vous m'éclairer svp ?
Code:
Sub SendaMail()
Dim oAPP As Object
Dim oItem As Object
' need to declare this constant as it has no meaning without
' the reference set to the Outlook library
Const olMailItem As Long = 0
' instantiate the Application - cannot use New without a reference
' so we must use CreateObject
Set oAPP = CreateObject("Outlook.Application")
' #######################################
' NOTE: THE REST OF THE CODE IS IDENTICAL
' #######################################
' create a new email
Set oItem = oAPP.CreateItem(olMailItem)
' set basic properties and display the email
With oItem
'Destinataire :
.To = "nicolas.mechoulan@intradef.gouv.fr"
'Sujet :
.Subject = "Notre commande d'objets promotionnels "
'Copies
.CC = "nicolas.mechoulan@armeedelair.com"
'Corps du mail :
.Body = "Bonjour," & vbCrLf _
& vbCrLf _
& "Veuillez trouver ci-joint notre commande d'objets promotionnels" & vbCrLf _
& vbCrLf _
& "Respectueusement, " & vbCrLf _
.Display
'Envoi :
.Send
End With
End Sub
Dernière édition: