RE:Manejar Lotus Notes desde VBA
hola... yo tengo este código... talves te sirva
Private Sub SendNotesMail(para As String, asunto As String, cuerpo As String, Optional CC As String = "", Optional BCC As String = "", Optional saveit As Boolean)
'************************
'----------------------------------------------------------------------------------
Dim domNotesDocumentMemo As Domino.NotesDocument
Dim domSession As New Domino.NotesSession
Dim domNotesDBDir As Domino.NotesDbDirectory
Dim domNotesDatabaseMailFile As Domino.NotesDatabase
Dim DomNotesItem As Domino.NotesItem
Dim sUser As String
Dim objNotesRichTextItem As Domino.NotesRichTextItem
Dim subj As String
Dim input1 As String
Dim input2 As String
Dim input3 As String
Dim input4 As String
Dim mailbody As String
Dim pase As String
frm_pass.Show vbModal 'este es un form sencillo que recibe en el txt_pass.text y lo guarda en una variable global pass as string
pase = pass
'pass = InputBox("Digite su password", "Ingreso de Datos")
If (pase) = "" Then
MsgBox "No ingresó el password", vbOKOnly + vbInformation, "Error!!!!!!!!!!"
Exit Sub
Else
domSession.Initialize (pass)
sUser = domSession.UserName
Set domNotesDBDir = domSession.GetDbDirectory(sUser)
Set domNotesDatabaseMailFile = domNotesDBDir.OpenMailDatabase
' Create a new memo document.
Set domNotesDocumentMemo = domNotesDatabaseMailFile.CreateDocument
Call domNotesDocumentMemo.AppendItemValue("Form", "Memo")
Call domNotesDocumentMemo.AppendItemValue("From", domSession.CommonUserName)
subj = asunto
mailbody = cuerpo
Call domNotesDocumentMemo.AppendItemValue("SendTo", para)
'Now get a handle on the item
Set DomNotesItem = domNotesDocumentMemo.GetFirstItem("SendTo")
'Now pass your array
'create or instantiate the item
Call domNotesDocumentMemo.AppendItemValue("CopyTo", "")
'Now get a handle on the item
Set DomNotesItem = domNotesDocumentMemo.GetFirstItem("CopyTo")
'Now pass your array
Call domNotesDocumentMemo.AppendItemValue("Subject", subj)
Set objNotesRichTextItem = domNotesDocumentMemo.CreateRichTextItem("Body")
Call objNotesRichTextItem.AppendText(mailbody)
' Call domNotesDocumentMemo.AppendItemValue("Body", mailbody)
If Trim(LCase(saveit)) = True Then
domNotesDocumentMemo.SaveMessageOnSend = True
Else
domNotesDocumentMemo.SaveMessageOnSend = False
End If
domNotesDocumentMemo.Send (True)
MsgBox "El mensaje ha sido enviado con éxito!", vbOKOnly + vbInformation, "Resultado de Envío"
Set domNotesDocumentMemo = Nothing
Set domNotesDatabaseMailFile = Nothing
Set domNotesDBDir = Nothing
Set domSession = Nothing
pass = ""
'Set AttachME = Nothing
Exit Sub
End If
ErrorHandler:
MsgBox Err.Number & " " & Err.Description
End Sub