Discussion :

[EvaristeGaloisBis]

Bonjour,

Je me casse la tête sur un petit problème...
J'envoie des mails vie lotus en utilisant les objets habituelles (notamment un RichText, et NotesDocument). Seulement le NotesDocument ne permet que d'envoyer le mail. J'aimerai qu'Excel ouvre simplement un mail dans Lotus et qu'il mette ses données comme il faut (ça je pense que je sais le faire), mais sans jamais l'envoyer de lui même.

J'ai bien un petite solution (avec des sendKeys) mais je pense que ça doit être possible avec les objets Domino et Lotus.

Avez vous une idée sur ce point?

[Godzestla]

Bonjour,

je suppose que si tu enlèves le .SEND du code suivant, ton email ne partira pas.

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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
Public Sub SendNotesMail(ByVal Notes_Dbname As String, ByVal Sender As String, _
                         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é
    Dim Ini_File As String    'Full Name of ini File
    Dim recip()  As String    'Tableau des destinataires
    Dim length   As Long
    Dim idx      As Long
    Dim off_in   As Long
    Dim off_out  As Long
    Dim temp_rec As String
    Dim Start As Long
    
    
   
    'Retrieve Parms from Ini
   
    '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)
   
    'Notes Database Name
    MailDbName = Notes_Dbname
   
    'Ouvre la base des mails
    Set Maildb = Session.GETDATABASE("", MailDbName)
    If Not Maildb.IsOpen Then Maildb.OPENMAIL
       
    'Paramètre le mail à envoyer
    
    'Split recipient list
    recip = Split(Recipient, ",")
    Set MailDoc = Maildb.CREATEDOCUMENT
    MailDoc.Form = "Memo"
    MailDoc.sendto = recip()
    MailDoc.CopyTo = CCRecipient
    MailDoc.BlindCopyTo = BCCRecipient
    MailDoc.Subject = Subject
    MailDoc.Body = Bodytext & " " & Sender
    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, recip
   
    Set Maildb = Nothing
    Set MailDoc = Nothing
    Set AttachME = Nothing
    Set Session = Nothing
    Set EmbedObj = Nothing

[EvaristeGaloisBis]

Il ne part pas mais ne s'ouvre pas dans la fenetre Lotus...