J'ai une application tiers (ERP : Microsoft Business Solution-Navision) qui
me produit des fichier Html. Je voudrai inserer dans le corp d'un message
Outlook ce fichier pour qu'il soit visible dans le corp du mail et non en
tant que pièce jointe.
N'étant pas un craque en VB, j'ai réalisé ces qlq ligne
Set app = CreateObject("outlook.application")
Set mail = app.CreateItem(0)
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Ftxt = FSO.OpenTextFile("C:\Documents and
Settings\b.durand\Bureau\CDE-0503-00.htm")
mail.To = DestinataireAdresseMail
mail.Subject = "Commande"
MaVariable = ""
Do While Not Ftxt.AtEndOfStream
MaVariable = MaVariable & Ftxt.Readline & Chr(13)
Loop
Ftxt.Close
mail.Body = MaVariable
mail.Send
Le problème est que dans le corps du message apparait le code html et non le
contenue visible par Ms explorer par exemple.
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
Clive Lumb
"Benoît" a écrit dans le message de news:%
Bonjour,
J'ai une application tiers (ERP : Microsoft Business Solution-Navision)
qui
me produit des fichier Html. Je voudrai inserer dans le corp d'un message Outlook ce fichier pour qu'il soit visible dans le corp du mail et non en tant que pièce jointe.
N'étant pas un craque en VB, j'ai réalisé ces qlq ligne
Set app = CreateObject("outlook.application") Set mail = app.CreateItem(0) Set FSO = CreateObject("Scripting.FileSystemObject") Set Ftxt = FSO.OpenTextFile("C:Documents and Settingsb.durandBureauCDE-0503-00.htm") mail.To = DestinataireAdresseMail mail.Subject = "Commande" MaVariable = "" Do While Not Ftxt.AtEndOfStream MaVariable = MaVariable & Ftxt.Readline & Chr(13) Loop Ftxt.Close mail.Body = MaVariable mail.Send
Le problème est que dans le corps du message apparait le code html et non
le
contenue visible par Ms explorer par exemple.
Merci de votre aide, Benoît
Regarder du coté de .HTMLBody plutôt que de .body
Clive
"Benoît" <bdurand_apogea@hotmail.fr> a écrit dans le message de
news:%231ToXD80FHA.164@TK2MSFTNGP10.phx.gbl...
Bonjour,
J'ai une application tiers (ERP : Microsoft Business Solution-Navision)
qui
me produit des fichier Html. Je voudrai inserer dans le corp d'un message
Outlook ce fichier pour qu'il soit visible dans le corp du mail et non en
tant que pièce jointe.
N'étant pas un craque en VB, j'ai réalisé ces qlq ligne
Set app = CreateObject("outlook.application")
Set mail = app.CreateItem(0)
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Ftxt = FSO.OpenTextFile("C:Documents and
Settingsb.durandBureauCDE-0503-00.htm")
mail.To = DestinataireAdresseMail
mail.Subject = "Commande"
MaVariable = ""
Do While Not Ftxt.AtEndOfStream
MaVariable = MaVariable & Ftxt.Readline & Chr(13)
Loop
Ftxt.Close
mail.Body = MaVariable
mail.Send
Le problème est que dans le corps du message apparait le code html et non
J'ai une application tiers (ERP : Microsoft Business Solution-Navision)
qui
me produit des fichier Html. Je voudrai inserer dans le corp d'un message Outlook ce fichier pour qu'il soit visible dans le corp du mail et non en tant que pièce jointe.
N'étant pas un craque en VB, j'ai réalisé ces qlq ligne
Set app = CreateObject("outlook.application") Set mail = app.CreateItem(0) Set FSO = CreateObject("Scripting.FileSystemObject") Set Ftxt = FSO.OpenTextFile("C:Documents and Settingsb.durandBureauCDE-0503-00.htm") mail.To = DestinataireAdresseMail mail.Subject = "Commande" MaVariable = "" Do While Not Ftxt.AtEndOfStream MaVariable = MaVariable & Ftxt.Readline & Chr(13) Loop Ftxt.Close mail.Body = MaVariable mail.Send
Le problème est que dans le corps du message apparait le code html et non
