Copier coller spécial pour mail outlook

E

eddy51

XLDnaute Occasionnel

• 15 Juin 2012

• #2

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

 

Vote positif 0 Vote négatif

A

Acide

XLDnaute Nouveau

• 15 Juin 2012

• #3

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.

 

Vote positif 0 Vote négatif

E

eddy51

XLDnaute Occasionnel

• 15 Juin 2012

• #4

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

 

Vote positif 0 Vote négatif

A

Acide

XLDnaute Nouveau

• 15 Juin 2012

• #5

Re : Copier coller spécial pour mail outlook

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

Code:

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

Code:

.Body = Range("A1")

par exemple.

Mon problème est modifier le code dans la partie

Code:

.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.

 

Vote positif 0 Vote négatif

A

Acide

XLDnaute Nouveau

• 15 Juin 2012

• #6

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

Code:

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

 

Vote positif 0 Vote négatif

E

eddy51

XLDnaute Occasionnel

• 15 Juin 2012

• #7

Re : Copier coller spécial pour mail outlook

Fin moi pour appler une image j'utiliserais sa

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

 

Vote positif 0 Vote négatif

A

Acide

XLDnaute Nouveau

• 15 Juin 2012

• #8

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

 

Vote positif 0 Vote négatif

A

amayaa

XLDnaute Nouveau

• 15 Juin 2012

• #9

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+

 

Dernière édition: 15 Juin 2012

Vote positif 0 Vote négatif

E

eddy51

XLDnaute Occasionnel

• 15 Juin 2012

• #10

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

 

Vote positif 0 Vote négatif

A

Acide

XLDnaute Nouveau

• 18 Juin 2012

• #11

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 !

 

Vote positif 0 Vote négatif