PowerBuilder à Donf ! / [RESOLU] Récupérer le contenu d'un fichier HTML dans une variable texte

DJ Matrak · 24-10-2008 09:08:19

Hello,

le but de ce message est d'envoyer une newsletter par PB10 via Outook

Avec le code ci-dessous :

Code: pb

OLEObject ole_outlook
integer li_return

ole_outlook = Create OLEObject
//Connect to Outlook session using 'Outlook.Application'
li_return = ole_outlook.ConnectToNewObject("outlook.application")
//Check for the return code
If li_return <> 0 Then
  Messagebox("Error", string(li_return))
  Destroy ole_outlook
  Return
Else
  MessageBox("Success", "Connected")
End If

OLEObject ole_item, ole_attach
//Creates a new mail Item
ole_item = ole_outlook.CreateItem(0)

//Set the subject line of message
ole_item.Subject = "Mon sujet"

//Body of mail message
ole_item.Body = "Mon corps de message"

//Recipient(s) Use a semicolon to separate multiple recipients
ole_item.To = "monmail.fr"
ole_item.Cc = "monmail.fr"
ole_item.Bcc = "monmail.fr"

//Attachments
ole_attach = ole_item.Attachments

 String sHtml
            sHtml = "<HTML>\n" + &
               "<HEAD>\n" +&
               "<TITLE>Sample GIF</TITLE>\n" +&
               "</HEAD>\n" +&
               "<BODY><P>\n" + &
               "<h1><Font Color=Green>Inline graphics</Font></h1></P>\n" +&
               "</BODY>\n" + &
               "</HTML>"
            ole_item.HTMLBody = sHtml

ole_item.Display //displays the message

par contre je suis nul en html...et notre newsletter fait a peu pres 100 lignes de html et je voulais savoir si il avait un moyen de récupérer directement le code html dans ma variable shtml ????

Message de modération:

Dernière modification par DJ Matrak (24-10-2008 13:25:59)

buck · 24-10-2008 09:29:35

Bonjour,

P'têt ben qu'oui , p'têt ben qu'non

Il faudrait être plus précis sur ta façon de procéder. Tu crées la newsletter dans un éditeur HTML Tierce, bloc-notes ou avec un éditeur développée en Powerbuilder, control OLE ...

DJ Matrak · 24-10-2008 09:56:28

bah, pour l'instant mes collègues utilisent composer et il me fournissent un newsletter.hml. Ensuite, pour l'instant, j'utilise le bloc note pour l'ouvrir et récupérer le code html.
Pour le moment, j'en suis à mes phases de tests et je passe en mode debug et je lui colle mon code html dans ma variable sHtml, juste avant le ole_item.HTMLBody = sHtml....et, tout fonctionne.
Bon après, je pourrais très bien ouvrir une fenetre et lui coller le code html dedans avant de l'envoyer.

Mais, je voulais savoir, si il avait quelque chose de plus "automatisé" ?

voili voilou
a+

buck · 24-10-2008 10:04:19

Bonjour,

Plus simple, il suffit de lire le fichier (FileOpen, FileRead, ...) et de la placer dans une variable string.

Il te suffit d'une fenêtre pour indiquer l'emplacement du fichier à charger.

erasorz · 24-10-2008 10:14:08

Bonjour, tu peux p.ex utiliser un GetFileOpenName pour récupérer le chemin et le nom du fichier, puis utiliser les fonctions sur les fichiers pour récupérer le contenu du fichier :

Code: pb

// récup nom fichier
If GetFileOpenName( ls_title, ls_pathfile, ls_file ) < 1 Then Return

// ouverture
li_file = FileOpen( ls_pathfile, LineMode!, Read!, Shared! )
                     
If li_file <> -1 Then
    
   // parcours des lignes
   Do While FileReadEx( li_file, ls_line ) > 0
  
      // ajout de la ligne
      ls_html +=  ls_line
    
   Loop
    
   // fermeture fichier
   FileClose( li_file )

End If