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à?