Envoyer un email avec Lotus Notes

Question

Bonjour,

Y a t il un moyen d'envoyer un email Lotus Notes via une application VB sans que l'utilisateur n'ai besoin de saisir son mot de passe Lotus ? Tous les exemples sur le site necessite que l'utilsiateur saisisse son mot de passe. 
Y aurait il eventuellement la possiblité d'indiquer le mot de passe ?

Merci de votre aide

crenaud76 · Answer

Je sais le faire sans saisie du mot de passe, mais, car il y a un mais, il faut qu'une session Lotus Notes soit ouverte sur le poste. 
Ca t'intéresse ?

Christophe R.

arouche · Answer

Ca pourra toujours servir..... Merci

crenaud76 · Answer

Public Sub EnvoiMail(Subject As String, SendTo As String, Message As String,Attachment as String)
Dim oSess As Object, oDB As Object, oDoc As Object, oItem As Object, direct As Object, var As Variant, flag As Boolean

    Set oSess = CreateObject("notes.notessession")
    Set oDB = oSess.getdatabase("", "")
    oDB.openmail
    flag = True

    If Not (oDB.isopen) Then flag = oDB.Open("", "")

    If Not flag Then
        MsgBox "Cant't open mail file: " & oDB.server & " " & oDB.filepath
        Exit Sub
    End If

    Set oDoc = oDB.createdocument
    Set oItem = oDoc.createrichtextitem("BODY")
    oDoc.Form = "Memo"
    oDoc.subject = Subject
    oDoc.sendto = SendTo
    oDoc.body = Message
    oDoc.postdate = Date

    If Attachment <> "" Then oItem.embedobject(1454, "", Attachment)

    oDoc.send False

exit_sendattachement:
    On Error Resume Next
    Set oSess = Nothing
    Set oDB = Nothing
    Set oDoc = Nothing
    Set oItem = Nothing
End Sub

Tu pcolles cela dans un module standard
Je penses que les noms des arguments sont assez explicite. Si tu as des soucis, envois moi un msg

Christophe R.

Envoyer un email avec Lotus Notes

3 réponses

Discussions similaires