Discussion :

[aracnard]

Bonjour,

Je suis actuellement sous lotus, et je souhaiterai savoir si il est possible d'envoyer un mail de maniere automatique avec piece jointe depuis un application winform sous vbnet, si oui un petit exemple serai le bienvenue, Merci.

[Pol63]

pour envoyer un mail depuis .net ca se passe dans system.net
il y a une classe mail et une smtp je crois
par contre ca ne passe pas par lotus et autre, si tu veux garder une trace du mail dans lotus il faut trouver un moyen de manipuler lotus depuis vb.net

pour lotus via .net ou les exemples d'envoie de mail google a tout ce qu'il faut ...

[aracnard]

Jai importé le domino et j'ai touvé ce petit bout de code mais il bloque sur le isopen et sur le createdocument, je comprend pas pourquoi ????
Il me demande aussi a chaque fois mon pass alors que la session est ouverte.

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
Dim Maildb As Object
        Dim MailDoc As Object
        Dim Body As Object
        Dim Session As Object
        'Start a session to notes
        Session = CreateObject("Lotus.NotesSession")
        'This line prompts for password of current ID noted in Notes.INI
        Call Session.Initialize()
        'or use below to supply password of the current ID
        'Call Session.Initialize("<password>")
        'Open the mail database in notes
 
        Dim UserName As String
        UserName = Session.UserName
        Maildb = "monuser" & ".nsf"
        'Maildb = Session.GETDATABASE("", "c:\notes\data\mail\mymail.nsf")
 
        If Not Maildb.IsOpen = True Then
            Call Maildb.Open()
        End If
 
        'Create the mail document
        MailDoc = Maildb.CreateDocument()
 
        Call MailDoc.ReplaceItemValue("Form", "Memo")
        'Set the recipient
        Call MailDoc.ReplaceItemValue("SendTo", "jhon")
        'Set subject
        Call MailDoc.ReplaceItemValue("Subject", "Subject Text")
        'Create and set the Body content
        Body = MailDoc.CREATERICHTEXTITEM("Body")
        Call Body.APPENDTEXT("Body text here")
        'Example to create an attachment (optional)
        Call Body.ADDNEWLINE(2)
        Call Body.EMBEDOBJECT(1454, "", "", "Attachment")
        'Example to save the message (optional)
        MailDoc.SAVEMESSAGEONSEND = True
        'Send the document
        'Gets the mail to appear in the Sent items folder
        Call MailDoc.ReplaceItemValue("PostedDate", Now())
        Call MailDoc.SEND(False)
        'Clean Up
        Maildb = Nothing
        MailDoc = Nothing
        Body = Nothing
        Session = Nothing