Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Outlook Insérer une image dans le corps du message en VBA

Insérer une image dans le corps du message en VBA

6 réponses
Avatar
Patrick EVEN
Bonjour,

J'aimerais savoir comment coder en VBA
l'insertion d'une image .gif ou .jpg en guise de logo
après ma signature par exemple.

Cordialement,
Patrick EVEN
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Aldo Rifort
Le 18/07/2007, Patrick EVEN a écrit dans
:
Bonjour,


Bonjour Patrick,

J'aimerais savoir comment coder en VBA
l'insertion d'une image .gif ou .jpg en guise de logo
après ma signature par exemple.


En VBA :
Dim objDoc As Document, objShape As InlineShape
Set objDoc = Application.Documents.Add
Set objShape = Selection.InlineShapes.AddPicture(FileName:="C:Mes
documentslogo001.jpg", LinkToFile:úlse, SaveWithDocument:=True)

En macro :
Sub MaMacro()
Selection.InlineShapes.AddPicture FileName:= "C:Mes
documentslogo001.jpg", LinkToFile:úlse, SaveWithDocument:=True
End Sub

--
Un nouveau site tout beau tout neuf, sur lequel on est encouragé à
intervenir : http://www.aieaie.com

Avatar
Oliv'
*Aldo Rifort que je salue a écrit *:
Le 18/07/2007, Patrick EVEN a écrit dans
:
Bonjour,


Bonjour Patrick,

J'aimerais savoir comment coder en VBA
l'insertion d'une image .gif ou .jpg en guise de logo
après ma signature par exemple.


En VBA :
Dim objDoc As Document, objShape As InlineShape
Set objDoc = Application.Documents.Add
Set objShape = Selection.InlineShapes.AddPicture(FileName:="C:Mes
documentslogo001.jpg", LinkToFile:úlse, SaveWithDocument:=True)

En macro :
Sub MaMacro()
Selection.InlineShapes.AddPicture FileName:= "C:Mes
documentslogo001.jpg", LinkToFile:úlse, SaveWithDocument:=True
End Sub


Ca fonctionne sur quelles versions ton code ? ol2007 ou ol2003 avec word en
éditeur ?


--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Outlook : http://faq.outlook.free.fr/
les macros Outlook : http://faq.outlook.free.fr/articles.php?cat_id
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
Dernière chance http://www.outlookcode.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


Avatar
Aldo Rifort
Le 19/07/2007, Oliv' a écrit dans
:
*Aldo Rifort que je salue a écrit *:
Le 18/07/2007, Patrick EVEN a écrit dans
:
Bonjour,


Bonjour Patrick,

J'aimerais savoir comment coder en VBA
l'insertion d'une image .gif ou .jpg en guise de logo
après ma signature par exemple.


En VBA :
Dim objDoc As Document, objShape As InlineShape
Set objDoc = Application.Documents.Add
Set objShape = Selection.InlineShapes.AddPicture(FileName:="C:Mes
documentslogo001.jpg", LinkToFile:úlse, SaveWithDocument:=True)

En macro :
Sub MaMacro()
Selection.InlineShapes.AddPicture FileName:= "C:Mes
documentslogo001.jpg", LinkToFile:úlse, SaveWithDocument:=True
End Sub


Ca fonctionne sur quelles versions ton code ? ol2007 ou ol2003 avec
word en éditeur ?


Le code VBA fonctionne avec office XP, et le code macro a été
directement enregistré avec word 2007, pour comparer les codes. Je
doute que ces codes ne fonctionnent pas avec 2003 (que je n'ai pas
sous la main).

--
Un nouveau site tout beau tout neuf, sur lequel on est encouragé à
intervenir : http://www.aieaie.com



Avatar
Oliv'
*Aldo Rifort que je salue a écrit *:
Le 19/07/2007, Oliv' a écrit dans
:
*Aldo Rifort que je salue a écrit *:
Le 18/07/2007, Patrick EVEN a écrit dans
:
Bonjour,


Bonjour Patrick,

J'aimerais savoir comment coder en VBA
l'insertion d'une image .gif ou .jpg en guise de logo
après ma signature par exemple.


En VBA :
Dim objDoc As Document, objShape As InlineShape
Set objDoc = Application.Documents.Add
Set objShape = Selection.InlineShapes.AddPicture(FileName:="C:Mes
documentslogo001.jpg", LinkToFile:úlse, SaveWithDocument:=True)

En macro :
Sub MaMacro()
Selection.InlineShapes.AddPicture FileName:= "C:Mes
documentslogo001.jpg", LinkToFile:úlse, SaveWithDocument:=True
End Sub


Ca fonctionne sur quelles versions ton code ? ol2007 ou ol2003 avec
word en éditeur ?


Le code VBA fonctionne avec office XP, et le code macro a été
directement enregistré avec word 2007, pour comparer les codes. Je
doute que ces codes ne fonctionnent pas avec 2003 (que je n'ai pas
sous la main).


En fait tes 2 codes sont du VBA WORD ils fonctionnent effectivement en
OL2003 mais uniquement avec WORD comme éditeur, car tu emplois des objets
word (Documents., inlineShape,...)

la différence entre les 2 c'est que le premier crée un nouveau document
pour insérer le logo et le second code utilise le document encours à
l'emplacement du curseur.

Pour faire la même chose en OL2003 sans WORD c'est un poil plus compliqué :

pour créer un nouveau mail avec 2 images incorporées :

Private Sub new_mail_with_embedded()

Dim strEntryID As String
Set objOL = CreateObject("Outlook.Application")
Set objMail = objOL.CreateItem(olMailItem)
objMail.Attachments.add "z:ATT666206.gif"
objMail.Attachments.add ("z:madonna.bmp")
objMail.HTMLBody = "<html><p>Ci-dessous les images.</p>" & _
"<img src='cid:ATT666206.gif' ><img src='cid:madonna.bmp'
"
objMail.Display

'objMail.Close olSave
Set objMail = Nothing
End Sub


Si tu dois positionner à un endroit précis c'est encore un peu plus dur...

--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Outlook : http://faq.outlook.free.fr/
les macros Outlook : http://faq.outlook.free.fr/articles.php?cat_id
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
Dernière chance http://www.outlookcode.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~




Avatar
Aldo Rifort

En fait tes 2 codes sont du VBA WORD ils fonctionnent effectivement en
OL2003 mais uniquement avec WORD comme éditeur, car tu emplois des
objets word (Documents., inlineShape,...)

la différence entre les 2 c'est que le premier crée un nouveau
document pour insérer le logo et le second code utilise le document
encours à l'emplacement du curseur.

Pour faire la même chose en OL2003 sans WORD c'est un poil plus
compliqué :

pour créer un nouveau mail avec 2 images incorporées :

Private Sub new_mail_with_embedded()

Dim strEntryID As String
Set objOL = CreateObject("Outlook.Application")
Set objMail = objOL.CreateItem(olMailItem)
objMail.Attachments.add "z:ATT666206.gif"
objMail.Attachments.add ("z:madonna.bmp")
objMail.HTMLBody = "<html><p>Ci-dessous les images.</p>" & _
"<img src='cid:ATT666206.gif' ><img
src='cid:madonna.bmp'
"
objMail.Display

'objMail.Close olSave
Set objMail = Nothing
End Sub


Si tu dois positionner à un endroit précis c'est encore un peu plus
dur...


Merci pour ces précisions.

--
Un nouveau site tout beau tout neuf, sur lequel on est encouragé à
intervenir : http://www.aieaie.com


Avatar
Patrick EVEN
Bonjour,

Merci de m'avoir éclairé sur la question posée.
Je vais tenter l'opération depuis Access 2000 pour Outlook 2003.

Cordialement,
Patrick EVEN

"Aldo Rifort" a écrit dans le message de news:


En fait tes 2 codes sont du VBA WORD ils fonctionnent effectivement en
OL2003 mais uniquement avec WORD comme éditeur, car tu emplois des objets
word (Documents., inlineShape,...)

la différence entre les 2 c'est que le premier crée un nouveau document
pour insérer le logo et le second code utilise le document encours à
l'emplacement du curseur.

Pour faire la même chose en OL2003 sans WORD c'est un poil plus compliqué
:

pour créer un nouveau mail avec 2 images incorporées :

Private Sub new_mail_with_embedded()

Dim strEntryID As String
Set objOL = CreateObject("Outlook.Application")
Set objMail = objOL.CreateItem(olMailItem)
objMail.Attachments.add "z:ATT666206.gif"
objMail.Attachments.add ("z:madonna.bmp")
objMail.HTMLBody = "<html><p>Ci-dessous les images.</p>" & _
"<img src='cid:ATT666206.gif' ><img
src='cid:madonna.bmp'
"
objMail.Display

'objMail.Close olSave
Set objMail = Nothing
End Sub


Si tu dois positionner à un endroit précis c'est encore un peu plus
dur...


Merci pour ces précisions.

--
Un nouveau site tout beau tout neuf, sur lequel on est encouragé à
intervenir : http://www.aieaie.com