[word-lotus notes]passer un document

[niclalex]

Bonjour,
Cela fait un petit moment que je cherche mis j'ai pas trouvé de solution.
Voici mon pb.
A partir de word je veux créer un mail dans lotus notes et coler le contenu de mon doc dans le corps du mail.
La partie création de mail c'est fait par contre je n'arrive pas à passer le contenu de mon doc avec sa mise en forme. (l'équivalent d'un copier le doc word puis coller dans le mail).
en manuel ca fonctionne.
J'ai bien déclaré mon corps de mail en rich text mais je n'arrive pas à passer la mise en forme.
Merci de vos sujestions.
Christophe

[dadavyvy]

Je ne sais pas faire avec du .doc,
mais tu peux mettre ton corps de message en HTML (MIME Entity),
et transformer ton .doc en html pour en insérer le contenu (source) dans ton mail.
Pour ajouter du contenu HTML à ton mail :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
    Set sess = CreateObject("Notes.NotesSession")
    Set maildb = sess.GETDATABASE("", "")
    Set ws = CreateObject("Notes.NotesUIWorkspace")
    If Not (maildb.IsOpen) Then
        maildb.OPENMAIL
    End If
    Set maildoc = maildb.CREATEDOCUMENT
    maildoc.From = sess.UserName
 
    Call maildoc.RemoveItem("Body")
 
    ' Create the content in HTML (MIME Entity)
    Set lnStream = sess.createStream
 
    ' Contenu en format HTML
    contentHTML = "<b>contenu HTML de ton fichier</b>"
 
    lnStream.WriteText contentHTML
 
    Set lnBodyMime = maildoc.CreateMIMEEntity("Body")
    lnBodyMime.SetContentFromText lnStream, "text/html;charset=iso-8859-1", 0
    lnStream.Close
    Set lnStream = Nothing

J'espere que ca t'aidera....