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

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Aldo Rifort
Le #334481
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

Oliv'
Le #334879
*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


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/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


Aldo Rifort
Le #334878
Le 19/07/2007, Oliv' a écrit dans
*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


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



Oliv'
Le #334875
*Aldo Rifort
Le 19/07/2007, Oliv' a écrit dans
*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


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 = " "
"
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/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~




Aldo Rifort
Le #334854

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 = " " 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


Patrick EVEN
Le #334853
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"

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 = " " 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






Publicité
Poster une réponse
Anonyme