Copier coller spécial pour mail outlook

[Acide]

Bonjour,

Après avoir scruté une bonne partie du forum je n'ai pas trouvé de solution à mon problème.

Je souhaite effectuer un copiage spécial "en tant qu'image, tel qu'à l'impression" et le coller dans mon message outlook (Et non le joindre)

Private Sub CB1_Click()
Dim a
a = TB1.Value

Dim OLF As Outlook.MAPIFolder, olMailItem As Outlook.MailItem
Dim ToContact As Outlook.Recipient
    Set OLF = GetObject("", _
        "Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
     Set olMailItem = OLF.Items.Add
    With olMailItem
        .Subject = ("Fiche d'intervention n°" & a)  'Titre du message
        Set ToContact = .Recipients.Add(Sheets("Gestion").Range("E2"))  'Destinataire
        .Body = Range("A1:J43").CopyPicture(Appearance:=xlPrinter, Format:=xlPicture) 'Corps du message
        .Display
    End With
Unload Me
UserForm1.Hide
End Sub

Voila ou j'en suis. Mon problème se situe au niveau du .Body.
Avec l'enregistreur de macro j'ai obtenue

Range("A1:J43").CopyPicture(Appearance:=xlPrinter, Format:=xlPicture)

pour le copiage spécial, mais je ne sais pas comment l'utiliser dans ce cas.

Merci d'avance, Théo

 

[eddy51]

Re : Copier coller spécial pour mail outlook

Si sa tinteresse j'ai une macro pour ouvrir outlook , les destinaires sont select via excel , le sujet le contenu via excel

 

[Acide]

Re : Copier coller spécial pour mail outlook

Salut eddy51

Je ne pense pas, à terme je remplace le .Display par .send pour automatiser l'envoi.

Mais merci quand même.

 

[eddy51]

Re : Copier coller spécial pour mail outlook

Pour automatisé l'envoi faut que tu est ta liste de contact select via excel , sinon tu les rentrent a la main dans outlook

 

[Acide]

Re : Copier coller spécial pour mail outlook

Là n'est pas mon problème, si je puis me permettre, avec

Set ToContact = .Recipients.Add(Sheets("Gestion").Range("E2"))  'Destinataire

dans la case E2 j'ai le nom du groupe de destinataire que j'ai préalablement défini sur outlook.
mon code marche très bien avec

.Body = Range("A1")

par exemple.

Mon problème est modifier le code dans la partie

.Body = Range("A1:J43").CopyPicture(Appearance:=xlPrinter, Format:=xlPicture)

pour avoir la plage A1:J43 sous forme d'image "copiage spécial type image tel qu'à l'impression" dans le corps du mail.

Mais merci quand même pour ton intérêt.

 

[Acide]

Re : Copier coller spécial pour mail outlook

Bon j'ai un peu avancé, je n'ai plus qu'un problème c'est comment appeler l'image dans le .body

Private Sub CB1_Click()
Dim a
a = TB1.Value
Worksheets(a).Range("A1:J43").CopyPicture Appearance:=xlPrinter, Format:=xlPicture
Worksheets(a).Paste
Selection.Name = "imagea"
Dim OLF As Outlook.MAPIFolder, olMailItem As Outlook.MailItem
Dim ToContact As Outlook.Recipient
    Set OLF = GetObject("", _
        "Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
     Set olMailItem = OLF.Items.Add
    With olMailItem
        .Subject = ("Fiche d'intervention n°" & a)  'Titre du message
        Set ToContact = .Recipients.Add(Sheets("Gestion").Range("E2"))  'Destinataire
        .Body = "imagea"  'Corps du message
        .Display
    End With
Worksheets(a).Shapes("imagea").Select
Selection.Delete
Unload Me
UserForm1.Hide
End Sub

 

[eddy51]

Re : Copier coller spécial pour mail outlook

Fin moi pour appler une image j'utiliserais sa

ActiveSheet.Pictures.Insert("C:\image.jpg").Select

 

[Acide]

Re : Copier coller spécial pour mail outlook

Je ne suis pas sur de comprendre.

ActiveSheet.Pictures.Insert("C:\image.jpg").Select

Va selectionner l'image image.jpg dans le répertoire C

Or j'ai une plage de cellules dont je créé une copie sous forme d'image et je voudrai que cette dernière soit dans le corps du mail. Mais je n'arrive pas a utiliser l'image créé avec .body, il doit surement un .quelquechose que j'oublie

 

[amayaa]

Re : Copier coller spécial pour mail outlook

Bonjour Acide, eddy51

tu peux utiliser le HTMLBody et insérer ton image en html après l'avoir enregistré

olMailItem.HTMLBody = "<img src='" & path & "'>"

a+

 

[eddy51]

Re : Copier coller spécial pour mail outlook

Ben ton classeur il est bien dans ton disque C , tu va cherche ton classeur ta feuille et tu affiche ton image je pence que sa peut le faire

 

[Acide]

Re : Copier coller spécial pour mail outlook

Bon finalement je suis passé par la création d'un fichier jpg temporaire, je n'ai pas trouvé de moyen plus simple.

Merci a vous, amayaa et eddy51 pour votre aide !