Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

envoi automatisé

4 réponses
Avatar
Pierre
Bonjour
j'aimerai automatiser l'envoi d'un message en format HTML
avec les images incorporées en HTML et non pas avec un lien du style
<img src="image.jpg" width="288" height="209">
J'ai vu que dans OutlookExpress on pouvait envoyer un fichier htlm
comportant des images en utilisant la commande "Message/Nouveau Message
avec/Page Web"
Dans ce cas, le corps du message ne fait pas référence au lien "image" mais
c'est un code représentant l'image qui fait parti intégrante du message
pouvez vous m'aider dans l'automatisation de cette tâche

dans mon exemple j'ai un fichier "c:\fichier.htm"
je mets dans une variable string son contenu
je crée ensuite un nouveau mail
je mets le contenu récupérer dans le cors du message
et j'envoie

ça marche sauf pour la notion image
merci de votre aide
Pierre

sub envoi()

NomNewsLetter = "c:\fichier.htm"
F1 = FreeFile
'Ouverture du fichier existant
Open NomNewsLetter For Input As F1
strContenu = Input(LOF(F1), F1)
'Fermeture du fichier
Close F1

Set Ol_Item = Application.CreateItem(olMailItem)

With Ol_Item
.To = "gjhg.gjgj@wwww.fr"
.Subject = "test"
.Importance = olImportanceHigh
.BodyFormat = olFormatHTML
.HTMLBody = strContenu
.Importance = olImportanceHigh
'.Display
.Send

End With
Loop

End Sub

4 réponses

Avatar
Oliv'
Bonjour
j'aimerai automatiser l'envoi d'un message en format HTML
avec les images incorporées en HTML et non pas avec un lien du style
<img src="image.jpg" width="288" height="209">
J'ai vu que dans OutlookExpress on pouvait envoyer un fichier htlm
comportant des images en utilisant la commande "Message/Nouveau
Message avec/Page Web"
Dans ce cas, le corps du message ne fait pas référence au lien
"image" mais c'est un code représentant l'image qui fait parti
intégrante du message pouvez vous m'aider dans l'automatisation de
cette tâche
dans mon exemple j'ai un fichier "c:fichier.htm"
je mets dans une variable string son contenu
je crée ensuite un nouveau mail
je mets le contenu récupérer dans le cors du message
et j'envoie

ça marche sauf pour la notion image
merci de votre aide
Pierre

sub envoi()

NomNewsLetter = "c:fichier.htm"
F1 = FreeFile
'Ouverture du fichier existant
Open NomNewsLetter For Input As F1
strContenu = Input(LOF(F1), F1)
'Fermeture du fichier
Close F1

Set Ol_Item = Application.CreateItem(olMailItem)

With Ol_Item
.To = ""
.Subject = "test"
.Importance = olImportanceHigh
.BodyFormat = olFormatHTML
.HTMLBody = strContenu
.Importance = olImportanceHigh
'.Display
.Send

End With
Loop

End Sub


Ca m'a l'air un peux confu tout cela, en html l'image reste tojouts une
image c'est son emplacement qui peut être différent.
ton image tu veux qu'elle soit envoyée avec ton mail ou qu'elle reste sur un
site web par exemple accessible bien sûr ?

--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook :http://faq.outlook.free.fr/
Sql :http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Avatar
Pierre
Bonjour et Merci de ta réponse
J'aimerais que mon image soit envoyée avec le mail
et non pas qu'elle soit qu'elle reste sur un site web accessible.

Pierre

"Oliv'" <(supprimerceci) a écrit dans le
message de news:

Bonjour
j'aimerai automatiser l'envoi d'un message en format HTML
avec les images incorporées en HTML et non pas avec un lien du style
<img src="image.jpg" width="288" height="209">
J'ai vu que dans OutlookExpress on pouvait envoyer un fichier htlm
comportant des images en utilisant la commande "Message/Nouveau
Message avec/Page Web"
Dans ce cas, le corps du message ne fait pas référence au lien
"image" mais c'est un code représentant l'image qui fait parti
intégrante du message pouvez vous m'aider dans l'automatisation de
cette tâche
dans mon exemple j'ai un fichier "c:fichier.htm"
je mets dans une variable string son contenu
je crée ensuite un nouveau mail
je mets le contenu récupérer dans le cors du message
et j'envoie

ça marche sauf pour la notion image
merci de votre aide
Pierre

sub envoi()

NomNewsLetter = "c:fichier.htm"
F1 = FreeFile
'Ouverture du fichier existant
Open NomNewsLetter For Input As F1
strContenu = Input(LOF(F1), F1)
'Fermeture du fichier
Close F1

Set Ol_Item = Application.CreateItem(olMailItem)

With Ol_Item
.To = ""
.Subject = "test"
.Importance = olImportanceHigh
.BodyFormat = olFormatHTML
.HTMLBody = strContenu
.Importance = olImportanceHigh
'.Display
.Send

End With
Loop

End Sub


Ca m'a l'air un peux confu tout cela, en html l'image reste tojouts une
image c'est son emplacement qui peut être différent.
ton image tu veux qu'elle soit envoyée avec ton mail ou qu'elle reste sur
un site web par exemple accessible bien sûr ?

--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook :http://faq.outlook.free.fr/
Sql :http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~





Avatar
Oliv'
Bonjour et Merci de ta réponse
J'aimerais que mon image soit envoyée avec le mail
et non pas qu'elle soit qu'elle reste sur un site web accessible.

Pierre

Essaye avec


<IMG src="c:ton repertoireimages.jpg" >

Oliv'

"Oliv'" <(supprimerceci) a écrit dans le
message de news:

Bonjour
j'aimerai automatiser l'envoi d'un message en format HTML
avec les images incorporées en HTML et non pas avec un lien du style
<img src="image.jpg" width="288" height="209">
J'ai vu que dans OutlookExpress on pouvait envoyer un fichier htlm
comportant des images en utilisant la commande "Message/Nouveau
Message avec/Page Web"
Dans ce cas, le corps du message ne fait pas référence au lien
"image" mais c'est un code représentant l'image qui fait parti
intégrante du message pouvez vous m'aider dans l'automatisation de
cette tâche
dans mon exemple j'ai un fichier "c:fichier.htm"
je mets dans une variable string son contenu
je crée ensuite un nouveau mail
je mets le contenu récupérer dans le cors du message
et j'envoie

ça marche sauf pour la notion image
merci de votre aide
Pierre

sub envoi()

NomNewsLetter = "c:fichier.htm"
F1 = FreeFile
'Ouverture du fichier existant
Open NomNewsLetter For Input As F1
strContenu = Input(LOF(F1), F1)
'Fermeture du fichier
Close F1

Set Ol_Item = Application.CreateItem(olMailItem)

With Ol_Item
.To = ""
.Subject = "test"
.Importance = olImportanceHigh
.BodyFormat = olFormatHTML
.HTMLBody = strContenu
.Importance = olImportanceHigh
'.Display
.Send

End With
Loop

End Sub


Ca m'a l'air un peux confu tout cela, en html l'image reste tojouts
une image c'est son emplacement qui peut être différent.
ton image tu veux qu'elle soit envoyée avec ton mail ou qu'elle
reste sur un site web par exemple accessible bien sûr ?

--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook :http://faq.outlook.free.fr/
Sql :http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~





Avatar
Oliv'
Ne tient pas compte de mon précédent post
Essaye plutot en adaptant cela (mais affiche l'image aussi dans les pièces
jointes)

Sub imagein()
Set objOL = CreateObject("Outlook.Application")
Set objMail = objOL.CreateItem(olMailItem)
objMail.Attachments.Add "z:Mes imagestempa.jpg"
objMail.HTMLBody = "<html><p>This is a picture.</p>" & _
"<img src='cid:a.jpg' >"
objMail.Display
End Sub
ou regarde là
http://www.outlookcode.com/d/code/htmlimg.htm


--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook :http://faq.outlook.free.fr/
Sql :http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


"Oliv'" <(supprimerceci) a écrit dans le
message de news:

Bonjour
j'aimerai automatiser l'envoi d'un message en format HTML
avec les images incorporées en HTML et non pas avec un lien du style
<img src="image.jpg" width="288" height="209">
J'ai vu que dans OutlookExpress on pouvait envoyer un fichier htlm
comportant des images en utilisant la commande "Message/Nouveau
Message avec/Page Web"
Dans ce cas, le corps du message ne fait pas référence au lien
"image" mais c'est un code représentant l'image qui fait parti
intégrante du message pouvez vous m'aider dans l'automatisation de
cette tâche
dans mon exemple j'ai un fichier "c:fichier.htm"
je mets dans une variable string son contenu
je crée ensuite un nouveau mail
je mets le contenu récupérer dans le cors du message
et j'envoie

ça marche sauf pour la notion image
merci de votre aide
Pierre

sub envoi()

NomNewsLetter = "c:fichier.htm"
F1 = FreeFile
'Ouverture du fichier existant
Open NomNewsLetter For Input As F1
strContenu = Input(LOF(F1), F1)
'Fermeture du fichier
Close F1

Set Ol_Item = Application.CreateItem(olMailItem)

With Ol_Item
.To = ""
.Subject = "test"
.Importance = olImportanceHigh
.BodyFormat = olFormatHTML
.HTMLBody = strContenu
.Importance = olImportanceHigh
'.Display
.Send

End With
Loop

End Sub


Ca m'a l'air un peux confu tout cela, en html l'image reste tojouts
une image c'est son emplacement qui peut être différent.
ton image tu veux qu'elle soit envoyée avec ton mail ou qu'elle
reste sur un site web par exemple accessible bien sûr ?

--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook :http://faq.outlook.free.fr/
Sql :http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~