Discussion :

[salent9]

Bonjour,
voilà le code que j’utilise pour automatiser l'envoie de mail sous lotus :

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
Public Sub MailLotus(ByVal ListeChain As Collection, ByVal destinataire As String)
 
Dim session As Object
Dim db As Object
Dim doc As Object
Dim attachme As Object
Dim EmbedObj As Object
Dim attachment() As String
Dim i As Integer
Dim FichierJoint As String
 
Set session = CreateObject("notes.notessession")
Set db = session.GetDatabase("", "")
Call db.OPENMAIL
 
Set doc = db.CreateDocument
 
With doc
    .Form = "Memo"
    .sendto = "destinataire du mail"
    .Subject = " titre du mail "
    .Body = " corp du texte"
    .From = session.CommonUserName
    .posteddate = Now
    .SaveMessageOnSend = True
End With
 
If ListeChain.Count = 0 Then
    Exit Sub
End If
 
Do While ListeChain.Count <> 0
        FichierJoint = FichierJoint + ListeChain.Item(1) & ";"
        ListeChain.Remove (1)
Loop
 
Set attachme = doc.CreateRichTextItem("Attachment")
If FichierJoint <> "" Then
    attachment = Split(FichierJoint, ";")
    For i = 0 To UBound(attachment)
        If attachment(i) <> "" Then
        Set EmbedObj = attachme.EmbedObject(1454, "", attachment(i), "Attachment")
        End If
    Next i
End If
 
Call doc.Send(False)
 
End Sub

Mon problème est que j'aimerais qu'au lieu d'envoyer les mails directement, je puisse les voir sous lotus et que je valide à la main leur envoie après vérification.
MErci d'avance de votre aide !

[salent9]

RE bonjour,

j'ai trouvé un début de solution en mettant c'est deux lignes de code à la place de la fonction .SEND

Code :

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

1
2
3
 
Set Workspace = CreateObject("Notes.NotesUIWorkspace")
Set EditDoc = Workspace.EditDocument(True, Doc)

Celles-ci m'ouvre bien mes mail en onglet sur lotus mais impossible de trouver un bouton envoie dans l'interface lotus. Ça édite les mail mais çà ne permet pas de les envoyer par la suite....je suis entrain de devenir fou sur le site d'IBM : http://publib.boulder.ibm.com/infoce...S.html&lang=fr