Lotus Notes - LOTUS NOTE VB.NET - VARIOS DESTINARIOS CON COPIA

 
Vista:

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.
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:LOTUS NOTE VB.NET - VARIOS DESTINARIOS CON COPI

Publicado por armando (58 intervenciones) el 15/07/2008 13:02:51
Puede ser un string, pero solo te funcionará con un remitente, si son varios el campo tiene que ser variant o array.
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

RE:LOTUS NOTE VB.NET - VARIOS DESTINARIOS CON COPI

Publicado por ALDO ESPINOSA RAMOS (3 intervenciones) el 15/07/2008 21:51:05
ok, si tienes razon pero como lo adaptaria ahi al codigo
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

RE:LOTUS NOTE VB.NET - VARIOS DESTINARIOS CON COPI

Publicado por armando (58 intervenciones) el 16/07/2008 10:59:00
Dim destinatariosC() As String

For i = Lbound(docd.Destinatarios) To Ubound(docd.Destinatarios)
Redim Preserve destinatariosC(i)
destinatariosC(i) = docd.Destinatarios(i)
Next
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

RE:LOTUS NOTE VB.NET - VARIOS DESTINARIOS CON COPI

Publicado por ALDO ESPINOSA RAMOS (3 intervenciones) el 23/07/2008 17:51:33
hola armando estoy provando tu codigo pero me marco un error de

Tipo de variable incorrecto. (Exception from HRESULT: 0x80020008 (DISP_E_BADVARTYPE))

declare la variable i como integer para el for, y todo lo demas lo puse igual
te agradeceria si me mencianaras por que de ese error gracias.
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

RE:LOTUS NOTE VB.NET - VARIOS DESTINARIOS CON COPI

Publicado por armando (58 intervenciones) el 31/07/2008 14:27:18
El código es lotusscript, entiendo que el error lo da .net, prueba con un array....
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