LOTUS NOTE VB.NET - VARIOS DESTINARIOS CON COPIA
Publicado por ALDO ESPINOSA RAMOS (3 intervenciones) el 14/07/2008 22:54:20
HOLA BUENO DIAS!!
MIREN RAZA ESTOY HACIENOD UNA APLICACION POR VB.NET PARA ENVIAR CORREOS A TRAVEZ DE LOTUS NOTE, YA LA HIZE PERO AL MOMENTO DE AGREGAR DOS O MAS DESTINATARIOS NO ME DEJA, SI LE DOY SOLO A UNO ME FUNCIONA, QUISIERA SABER SI ALGUIEN SABE COMO HACER PARA QUE ENVIE A VARIOS DESTINATARIOS Y SI TIENE UN EJEMPLO MEJOR. AQUI LES MANDO EL CODIGO DE MI APLICACION DE ENVIO DE LOTUS NOTE A TRAVEZ DE .NET HABER EN QUE ME ESTA FALLANDO GRACIAS.
El codigo va en un boton.
Dim strRecipient As String
'EL strRecipient ME HACE REFERENCIA AL TO(PARA) DE LOS MAIL QUE VOY ENVIAR'
strRecipient = Me.TxtTo.Text()
If (strRecipient <> "") Then
Dim session As Object
Dim db As Object
Dim doc As Object
Dim theBody As Object
session = CreateObject("Notes.NotesSession")
db = session.GetDatabase("correo", "password")
Call db.OpenMail()
doc = db.CreateDocument()
doc.Form = "Memo"
doc.Subject = Me.TxtSubjet.Text()
'AQUI ES DONDE ME LO MANDA LLAMAR EL strRecipient'
doc.SendTo = strRecipient
doc.CopyTo = Me.TxtCopyTo.Text()
theBody = doc.CREATERICHTEXTITEM("Body")
Call theBody.AppendText(Me.TxtBody.Text())
If (Me.TxtAttachment.Text() <> "") Then
Call theBody.AddNewLine(1)
Call theBody.EmbedObject(1454, "", Me.TxtAttachment.Text())
End If
Call doc.Send(False)
End If
MsgBox("Mensaje Eviado con Exito", MsgBoxStyle.Information, "ENVIO E-MAIL")
Ojala y tengan la respuesta pronto,se los agradeceria bastante.
MIREN RAZA ESTOY HACIENOD UNA APLICACION POR VB.NET PARA ENVIAR CORREOS A TRAVEZ DE LOTUS NOTE, YA LA HIZE PERO AL MOMENTO DE AGREGAR DOS O MAS DESTINATARIOS NO ME DEJA, SI LE DOY SOLO A UNO ME FUNCIONA, QUISIERA SABER SI ALGUIEN SABE COMO HACER PARA QUE ENVIE A VARIOS DESTINATARIOS Y SI TIENE UN EJEMPLO MEJOR. AQUI LES MANDO EL CODIGO DE MI APLICACION DE ENVIO DE LOTUS NOTE A TRAVEZ DE .NET HABER EN QUE ME ESTA FALLANDO GRACIAS.
El codigo va en un boton.
Dim strRecipient As String
'EL strRecipient ME HACE REFERENCIA AL TO(PARA) DE LOS MAIL QUE VOY ENVIAR'
strRecipient = Me.TxtTo.Text()
If (strRecipient <> "") Then
Dim session As Object
Dim db As Object
Dim doc As Object
Dim theBody As Object
session = CreateObject("Notes.NotesSession")
db = session.GetDatabase("correo", "password")
Call db.OpenMail()
doc = db.CreateDocument()
doc.Form = "Memo"
doc.Subject = Me.TxtSubjet.Text()
'AQUI ES DONDE ME LO MANDA LLAMAR EL strRecipient'
doc.SendTo = strRecipient
doc.CopyTo = Me.TxtCopyTo.Text()
theBody = doc.CREATERICHTEXTITEM("Body")
Call theBody.AppendText(Me.TxtBody.Text())
If (Me.TxtAttachment.Text() <> "") Then
Call theBody.AddNewLine(1)
Call theBody.EmbedObject(1454, "", Me.TxtAttachment.Text())
End If
Call doc.Send(False)
End If
MsgBox("Mensaje Eviado con Exito", MsgBoxStyle.Information, "ENVIO E-MAIL")
Ojala y tengan la respuesta pronto,se los agradeceria bastante.
Valora esta pregunta


0