Lotus Notes - Manejar Lotus Notes desde VBA

 
Vista:

Manejar Lotus Notes desde VBA

Publicado por Juan Bustamante (1 intervención) el 20/09/2000 00:00:00
Hola :
Quiero enviar correo desde una macro en VBa para Excel, existe alguna forma de hacerlo?. La idea es que una vez terminada la rutina, un boton automaticamente envie el mensaje con uan planilla adjunta, a los destinatarios correspondientes.

Gracias
Juan
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Manejar Lotus Notes desde VBA

Publicado por Paulo Araneda (1 intervención) el 25/09/2000 00:00:00
esta rutina envia un mail desde visual basic
ENVIAR_MAIL:

Dim session As Variant
Dim mailserver As String
Dim mailfile As String
Dim db As Variant
Dim memo As Variant
Dim body As Variant

Set session = CreateObject("Notes.NotesSession")
mailserver = session.GetEnvironmentString("MailServer", True)
mailfile = session.GetEnvironmentString("MailFile", True)

Do While mailserver <> ""
´If Trim(mailserver) = "" Then
´ Exit Sub
´End If

Set db = session.GetDatabase(mailserver, mailfile)
Set memo = db.CreateDocument

memo.Subject = "(Mail Abasys) Requerimiento"
Set body = memo.CreateRichTextItem("Body")
Call body.AppendText("La solicitud"

Call body.AddNewLine(1)
Call body.AppendText("Desde el Sistema de Abastecimiento Abasys, registra los siguientes requerimientos :")
Call body.AddNewLine(2)
Call body.AppendText("IST CHILE")


Call memo.Send(False, "Casilla mail")

Return
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar