VB, Lotus Notes : message au format HTMLRésolu

Question

Bonjour &#224; tous !

Quelqu'un sait-il s'il y a moyen d'envoyer un message Lotus Notes au format HTML, et qui garde donc ses propri&#233;t&#233;s de mises en forme pour le destinataire ? 

J'ai trouv&#233; tout ce qu'il me faut comme code VB pour envoyer un message simple (texte seul) ou attacher des fichiers, mais sinon, pas moyen de forcer l'interpr&#233;tation de code HTML lors de l'ouverture des messages sur le client Notes. Le code HTML est toujours trait&#233; comme du b&#234;te texte.

Merci pour votre aide.

cs_ios · Accepted Answer

Bonjour,



Voici un code que j'utilise et qui fonctionne bien chez moi, avec Access 97





Sub SendMailHtml(AdresseMail As String)

'Creation d'une mail avec importation d'un fichier html



On Error GoTo TraiteErr



Dim sUser As String, sServer As String, sMailfile As String

Dim Session As Object, dbo As Object

Dim MYwkspace As Object


Dim MyDoc As Object





'Creation d'une fichier au forma HTML

CreeHtml 



Set Session = CreateObject("notes.notessession")

sUser = Session.UserName

sServer = Session.GETENVIRONMENTSTRING("MailServer", True)

sMailfile = Session.GETENVIRONMENTSTRING("MailFile", True)





Set MYwkspace = CreateObject("notes.NOTESUIWORKSPACE")

Set MyDoc = MYwkspace.COMPOSEDOCUMENT(sServer, sMailfile, "Memo", 1, 1)

'Ecrire le sujet

Call MyDoc.GOTOFIELD("Subject")

Call MyDoc.InsertText("Bon de commande")



'Destinataire

Call MyDoc.GOTOFIELD("EnterSendTo")

Call MyDoc.InsertText(AdresseMail)

'Mettre qq1 en copy

'Call MyDoc.GOTOFIELD("EnterCopyTo")

'Call MyDoc.InsertText("odiers@cylande.com")



'Call MyDoc.IMPORT("html", "c:\E_CmdImp.html")

'Remplir le champ body avec un fichier HTML

Call MyDoc.GOTOFIELD("Body")

Call MyDoc.IMPORT("html", "c:	emp.html")

'ici les parametres pour envoi, enregistre, fermeture

'Call MyDoc.SEND

'Call MyDoc.SAVE

'Call MyDoc.Close

'Call MyDoc.Open

'MsgBox "Veuillez allez dans notes pour envoyez de mail si il est correcte"

Set Session = Nothing

Set MYwkspace = Nothing

Set MyDoc = Nothing

FinProcedure:

Exit Sub

TraiteErr:

Select Case Err.Number

    Case 91

        MsgBox "Il semble que Notes
soit occup&#233;, il n'est pas possible de cr&#233;er le message" & vbCrLf
& vbCrLf & _

               
"Veuillez lib&#233;rer Lotus Notes, puis relancer la proc&#233;dure" _

               
, vbCritical, "Erreur de communication avec Lotus Notes"



                

        'MsgBox "la commande &#224; supprimer est la:" & LaCommande2

        SupCommande LaCommande2

        Err.Clear

        Exit Sub

    Case Else

        MsgBox "Erreur N&#176;:" & Err.Number & vbCrLf & _

                "Description:" & Err.Description

        Resume Next

End Select

        

End Sub



Ce code n'est pas de moi, mais je ne me souviens plus o&#249; je l'ai trouv&#233;



Fonctionne avec Notes V5, mais il arrive que la proc&#233;dure
plante chez certains utilisateurs, mais je n'ai pas encore trouv&#233; pourquoi









Olivier

akkeron · Answer

Merci de votre r&#233;ponse

VB, Lotus Notes : message au format HTML

2 réponses

Discussions similaires