Discussion :

[mah.ngaz]

Bonjour,

Je suis en train de coder une macro permettant d'envoyer un mail avec une pièce jointe. Jusque là, tout va bien.

Cependant, à celà j'aimerais pouvoir coller dans le corps du mail(en bitmap) un tableau copié depuis la feuille excel.

Voici le code utilisé (la ligne qui renvoie l'erreur est en gras):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Set myApp = CreateObject("Outlook.Application")
Set myItem = myApp.CreateItem(olMailItem)

myItem.Subject = ThisWorkbook.Sheets("SQL").Range("Name").Text & ": performance on " & ThisWorkbook.Sheets("SQL").Range("ToDay").Text & ""

Range("PerfReportForMail").Select
Selection.Copy

myItem.Body = Selection.PasteSpecial(Format:="Bitmap", Link:=False, DisplayAsIcon:=False)

With myItem
    .SentOnBehalfOfName = "blabla@yahoo.fr"
End With


myItem.Attachments.Add "Z:\Appli\Gts\Dev\GTS_ALPHALIB\Excel\Performance Report.xlsm"

'myItem.to = ThisWorkbook.Sheets("SQL").Range("MailingList")
myItem.to = "blabla@yahoo.fr"
myItem.Display
myItem.Send

Si quelqu'un a une solution, il est le bienvenuu

Merci.

[Oliv-]

Bonjour,
Quelle version de outlook ? Quel est le format des EMAILs (html, brut, rtf) ?

[mah.ngaz]

Bonjour Oliv,

Outlook 2010

Pour le format je ne sais pas ce que veulent dire ces termes, je m'en excuse. Si cela peut t'aider, j'aimerais simplement que le tableau que je selectionne sur ma feuille excel soit collé en format image (bitmap quand on fait un Paste Special).

Merci d'avance.

[carden752]

Bonjour,

que donne l'option Wordeditor.range.paste?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set outlookwordeditor = myitem.GetInspector.WordEditor
outlookwordeditor.Range.PasteAndFormat wdFormatOriginalFormatting

[mah.ngaz]

Merci Christophe.
C'est nikel, ça marche.

Merci à toi Oliv également.

[Nelmech]

Bonjour,

Je suis également intéressé par cette fonction la, j'écume le net depuis plusieurs heure deja...
mah.ngaz peux tu remettre ton code complet stp?

Car pour la variable outlookwordeditor, je en sais pas comment la déclarer ainsi que les différent paramétres ou j'ai des erreurs sur plusieurs d'entre eux, notamment celui-ci "wdFormatOriginalFormatting"...

[Oliv-]

C'est sans doute lié à ta version de outlook !!
cela fonctionne pour OL2010

[Nelmech]

J'ai egalement OL 2010, donc ça doit surement fonctionner, c'est juste que je ne sais pas comment utiliser dans vba lces deux ligne... J'ai essayé de cette maniere

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub creer_Mail()
 
Dim text1
Dim outlookwordeditor
Dim appOutlook As Outlook.Application
Dim oMail As Outlook.MailItem
 
 Set appOutlook = CreateObject("Outlook.Application")
 Set oMail = appOutlook.CreateItem(olMailItem)
Sheets("Report Title").Cells(10, 1).Select
Selection.Copy
Set outlookwordeditor = oMail.GetInspector.WordEditor
oMail.Body = outlookwordeditor.Range.PasteAndFormat(Type:=wdFormatOriginalFormatting)
oMail.Display
End Sub

Mais le mail qui s'affiche est vide....

[Oliv-]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub creer_Mail()
 
Dim text1
Dim outlookwordeditor
Dim appOutlook As Outlook.Application
Dim oMail As Outlook.MailItem
 
 Set appOutlook = CreateObject("Outlook.Application")
 Set oMail = appOutlook.CreateItem(olMailItem)
Sheets("Report Title").Cells(10, 1).Select
Selection.Copy
Set outlookwordeditor = oMail.GetInspector.WordEditor
outlookwordeditor.Range.PasteAndFormat(Type:=wdFormatOriginalFormatting)
oMail.Display
End Sub

[sasafca]

Bonjour,

j'ai utilisé le cde de carden752, et il marche très bien. Cependant, je souhaiterai insérer également du texte dans le corps de mon mail, et lorsque j'utilise ce code, mon texte s'efface... Comment y remédier ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
     With olMail
        .To = mail
        .Subject = "Récapitulatif données clients au " & Format(Date, "dd/mm/yy")
        .HTMLBody = " <p style='text-align:center;font-weight:bold;'> Bonjour " & prenom & " " & nom & ", </p> " _
            & "<p> Vous trouverez ci-joint les données concernant ... </p>" _
            & "<p> Cordialement </p>"
            '& MessagEnHtml(rng)
    End With
 
    Set outlookwordeditor = olMail.GetInspector.WordEditor
    outlookwordeditor.Range.PasteAndFormat wdFormatOriginalFormatting

Merci !!

[Jean-Philippe André]

Salut,

et en passant par la solution proposee dans la pour l'envoi d'une plage de cellules ?

http://excel.developpez.com/faq/?pag...geCellulesMail

Tu y colles ton texte + ton tableau.

[sasafca]

Salut,

merci pour ta réponse, mais j'envoie des tableaux assez important et surtout à environ 1 000 personnes, donc le temps que la macro boucle sur toute les lignes et colonnes ça prend du temps, donc je voulais savoir s'il n'y avait pas une façon optimisé défaire cela.

Merci

[Jean-Philippe André]

Si tu avais lu l'item jusqu'au bout tu aurais pu voir que tu peux preciser une plage directement

Sinon, en faisant une rapide recherche, je retombe sur ma contribution pour le code evolue :
http://www.developpez.net/forums/d96...omplement-faq/