Discussion :

[toinou28]

Bonjour à tous,

Je ne sais pas afficher le mail sous Lotus afin que l'utilisateur vérifie son contenu et l'envoi lui meme. Le code suivant envoit un mail sans qu'il n'apparaisse sur Lotus (à la différence de Outlook d'ailleurs).J'aimerais également que la signature par défaut soit mise dans ce mail, ce qui n'est pas le cas avec mon code actuel...

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
Public Sub SendNotesMail()
 
    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é
 
    Set session = CreateObject("Notes.NotesSession")
 
    '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 = destinataire
    maildoc.CopyTo = destinatairecopie
    maildoc.BlindCopyTo = bccRecipient
    maildoc.Subject = sujet
    maildoc.Body = corps
    maildoc.SAVEMESSAGEONSEND = True
    maildoc.Visible = True
 
    'Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment")
    'Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", "C:\essais.pdf", "Attachment")
 
    maildoc.PostedDate = Now()
    maildoc.SEND 0, destinataire
 
    Set Maildb = Nothing
    Set maildoc = Nothing
    Set AttachME = Nothing
    Set session = Nothing
    Set EmbedObj = Nothing
End Sub

Merci par avance de votre aide !

[sabzzz]

bonjour toinou28,

je n'ai pas Lotus pour faire un test, mais si tu peut essai en enlevent la ligne

Code :

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

maildoc.SEND 0, destinataire

[toinou28]

j'ai bien essayé ca mais le mail est invisible sous Lotus...Je ne trouve pas le mail créé, ca marche pas comme Outlook...Quelqu'un a une autre idée plz ?

[toinou28]

J'ai trouvé ce qu'il me fallait ! Le code suivant ouvre un nouveau mail et y ajoute les infos nécessaire.

Code :

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

1
2
3
4
Private Sub CommandButton2_Click()
URLto = "mailto:toto@vba.com" & "?subject=Sujrt du mail" & "&body=" & "essai"
    ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub