Le forum (ô combien francophone) des utilisateurs de Powerbuilder.
Pages: 1
Hello,
le but de ce message est d'envoyer une newsletter par PB10 via Outook
Avec le code ci-dessous :
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)
Hors ligne
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 ...
Hors ligne
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+
Hors ligne
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.
Hors ligne
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 :
// 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
Hors ligne
OK, ça marche avce ces fonctions
merciiiiiiii a+
Hors ligne
Bonjour,
Please do not forget the [RESOLU]
Hors ligne
Pages: 1