Discussion :

[sab_etudianteBTS]

Bonjour,
Voila je voudrais savoir comment faire pour mettre de la couleur dans un mail Lotus Notes.
Merci pour votre aide!

[Asdorve]

salut,

qu'as-tu déjà codé? Pour voir comment tu t'y es prise au départ.

[sab_etudianteBTS]

Salut,
merci de m'avoir répondu. Hé bien, g pris la fonction qui était proposé dans la FAQ VB, je la remet pour que tu vois:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Public Sub SendNotesMail(ByVal Subject As String, ByVal Attachment As String, _
                         ByVal Recipient As String, ByVal ccRecipient As String, _
                         ByVal bccRecipient As String, ByVal BodyText As String, _
                         ByVal SaveIt As Boolean, ByVal Password As String)
    Dim Maildb As Object      'La base des mails
    Dim UserName As String    'Le nom d'utilisateur
    Dim MailDbName As String  'Le nom de la base des mails
    Dim MailDoc As Object     'Le mail
    Dim AttachME As Object    'L'objet pièce jointe en RTF
    Dim Session As Object     'La session Notes
    Dim EmbedObj As Object    'L'objet incorporé
    'Crée une session notes
    Set Session = CreateObject("Notes.NotesSession")
    '*** Cette ligne est réservée aux versions 5.x et supérieur : ***
    Session.Initialize (Password)
    'Récupère le nom d'utilisateur et crée le nom de la base des mails
    UserName = Session.UserName
    MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
    'Ouvre la base des mails
    Set Maildb = Session.GETDATABASE("", MailDbName)
    If Not Maildb.ISOPEN Then Maildb.OPENMAIL
    'Paramètre le mail à envoyer
    Set MailDoc = Maildb.CREATEDOCUMENT
    MailDoc.Form = "Memo"
    MailDoc.sendto = Recipient
    MailDoc.CopyTo = ccRecipient
    MailDoc.BlindCopyTo = bccRecipient
    MailDoc.Subject = Subject
    MailDoc.Body = BodyText
    MailDoc.SAVEMESSAGEONSEND = SaveIt
    'Prend en compte les pièces jointes
    If Attachment <> "" Then
        Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment")
        Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment, "Attachment")
        MailDoc.CREATERICHTEXTITEM ("Attachment")
    End If
    'Envoie le mail
    MailDoc.PostedDate = Now()
    MailDoc.SEND 0, Recipient
    Set Maildb = Nothing
    Set MailDoc = Nothing
    Set AttachME = Nothing
    Set Session = Nothing
    Set EmbedObj = Nothing
End Sub

Voila ensuite j'appelle cette fonction dansmon boutton de commande cmdSendMail_Click() en mettant les paramètres qu'il faut.
Je voudrait savoir s'il était possible de mettre de la couleur quand j'écris le texte du mail (ici BodyText).

Merci

[Asdorve]

mais tu veux mettre de la couleur aléatoirement, où sur un endroit bien précis?

[sab_etudianteBTS]

Dans un endroit bien précis.
Par exemple la phrase ci dessous:
"Bonjour, aujourd'hui nous sommes le 07/06/2006"
je voudrais que la date apparaisse en bleu par exemple
(c un exemple g pris ce qui me passais par la tete!)
Merci pour ton aide

[Asdorve]

excellente question, je bloque,

y'a pas quelqu'un d'autre par là?

[Asdorve]

j'ai trouvé ça, si ça peut t'aider, P25 du pdf

http://www.domlike.net/domlike/dl2.n...otusScript.pdf

[sab_etudianteBTS]

Ok, je vais regarder ca. Merci bcp pour ton aide

[illight]

Regarde ce fichier tu as les propriétés pour Lotus dessus


Crotte peut pas le mettre..

Bon je te met à la main ce qui peut t'intéresser :

NotesRichTextStyle
Property
Bold flag = notesRichTextStyle.Bold
Effects flag = notesRichTextStyle.Effects
FontSize fontsize% = notesRichTextStyle.FontSize
Italic flag = notesRichTextStyle.Italic
NotesColor notescolor = notesRichTextStyle.NotesColor
Notesfont notesfont = notesRichTextStyle.NotesFont
PassThruHTML flagIntegerConstant = notesRichTextStyle.PassThruHTML
Strikethrough flag = notesRichTextStyle.Strikethrough
Underline flag = notesRichTextStyle.Underline

[sab_etudianteBTS]

Ok merci, mais je ne comprend pas trop, ou est qu'il faut mettre ce code la stp??

[illight]

Ce sont les propriétés pas ce qu'il faut mettre dans la macro


Par exemple pour mettre en gras, tu dois mettre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
smsg = "toto"
Call notesRichTextStyle.Bold(sMsg)

Donc pour mettre en couleur, tu dois utiliser la propriété :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NotesColor notescolor = notesRichTextStyle.NotesColor

Le problème est que cette propriété je ne sais pas comment lele marche exactement, s'il faut un ou plusieurs arguments etc, donc il faut faire des test