Privacidad: Recuerde que la información escrita en los foros de programación es 100% pública y que su ip será registrada asociada a su mensaje. Si encuentra un mensaje fuera de lugar, por favor, notifiquelo para su revisión y eliminación.
Enviar mail con visual basic y Lotus Notes
Enviado por rafa el día 17 de diciembre de 2003
Hola a todos.
Tengo diseñado un programa en el que envio mail desde vb6.0, pero me funciona con el outlook express.
¿Como puedo hacer para que me funcione con Lotus Notes?
Gracias
Re: Re: Enviar mail con visual basic y Lotus Notes
Enviado por rafa el día 14 de enero de 2004
Gracias Javi (y tb a todos los participantes del foro, no todos tenemos respuesta para todo ¿no?)
Si la encuentras puedes tb mandarme un mail a polo1chat@hotmail.com
Gracias de nuevo
Re: Re: Re: Re: Enviar mail con visual basic y Lotus Notes
Enviado por Tuareg el día 22 de enero de 2004
Resuelto:
Public Sub SendNotesMail(ByVal Subject As String, ByVal attachment As String, ByVal recipient As String, ByVal bodytext As String, ByVal saveit As Boolean)
\'Set up the objects required for Automation into lotus notes
Dim Maildb As Object \'The mail database
Dim UserName As String \'The current users notes name
Dim MailDbName As String \'THe current users notes mail database name
Dim MailDoc As Object \'The mail document itself
Dim AttachME As Object \'The attachment richtextfile object
Dim Session As Object \'The notes session
Dim EmbedObj As Object \'The embedded object (Attachment)
\'Start a session to notes
Session = CreateObject(\"Notes.NotesSession\")
\'Get the sessions username and then calculate the mail file name
\'You may or may not need this as for MailDBname with some systems you
\'can pass an empty string
UserName = Session.UserName
MailDbName = Microsoft.VisualBasic.Left(UserName, 1) & Microsoft.VisualBasic.Right(UserName, (Len(UserName) - InStr(1, UserName, \" \"))) & \".nsf\"
\'Open the mail database in notes
Maildb = Session.GETDATABASE(\"\", MailDbName)
If Maildb.IsOpen = True Then
\'Already open for mail
Else
Maildb.OPENMAIL()
End If
\'Set up the new mail document
MailDoc = Maildb.CREATEDOCUMENT
MailDoc.Form = \"Memo\"
MailDoc.sendto = recipient
MailDoc.Subject = Subject
MailDoc.Body = bodytext
MailDoc.SAVEMESSAGEONSEND = saveit
\'Set up the embedded object and attachment and attach it
If attachment <> \"\" Then
AttachME = MailDoc.CREATERICHTEXTITEM(\"Attachment\")
EmbedObj = AttachME.EMBEDOBJECT(1454, \"\", attachment, \"Attachment\")
MailDoc.CREATERICHTEXTITEM(\"Attachment\")
End If
\'Send the document
MailDoc.PostedDate = Now() \'Gets the mail to appear in the sent items folder
MailDoc.SEND(0, recipient)
\'Clean Up
Maildb = Nothing
MailDoc = Nothing
AttachME = Nothing
Session = Nothing
EmbedObj = Nothing
end sub
Re: Re: Re: Re: Re: Enviar mail con visual basic y Lotus Notes
Enviado por vbUser el día 5 de febrero de 2004
Disculpen la molestia .
Alguien sabe como mandar un correo desde vb pero con autentificacion y sin usar ningun cliente de correo electronico. Hasta ahora he estado usando el winsock.
Re: Re: Re: Re: Re: Re: Enviar mail con visual basic y Lotus Notes
Enviado por Nella el día 5 de febrero de 2004
Hola!!!
Yo tenia el programa en VB que enviaba e-mails, desde hace tiempo, pero desde windows 2000 outlook saca un mensaje diciendo que no reconoce el mail, lo considera un virus y me pide autorizacion. Como mando gran cantidad de correos a la vez necesitaria saltarme esa autorización (una por cada mail que envio) , alguien sabe como?
Re: Re: Re: Re: Re: Re: Re: Re: Enviar mail con visual basic y Lotus Notes
Enviado por Vladelbar el día 26 de febrero de 2004
para que no pregunte por cada correo, hay que quitar la selección dentro del outlook donde se refiere a "permitir que otros programas envien correo sin preguntar"
Yo tengo es una pregunta adicional, desde visual basic no puedo obligar al outlook para que envie en formato html y por el contrario sólo me envia texto plano.
Si alguien sabe como se hace, aparte del .msgtype = 0 se lo agradeceré.
Re: Re: Re: Re: Re: Re: Re: Re: Re: Enviar mail con visual basic y Lotus Notes
Enviado por xavi el día 5 de agosto de 2005
Vladelbar! A mi también me interesa esta función. Llevo días buscando como poder enviar texto con formato usando las MAPI y no hay forma. Siempre me lo envía en texto plano.
Por favor, si has encontrado la solución envíamela a mi dirección de correo electrónico "margarxa@hotmail.com"
hola
perdonen que cambie el tema pero ya que lo hago.. tengo un problema necesito agregar controles a los items de outlook 9 con vb6 ej :olAppointmentItem y la verdad no se comoya agrgregue un menu en la principal pero no he podido con las instancias.... gracias
Re: Re: Re: Re: Re: Re: Re: Re: Re: Enviar mail con visual basic y Lotus Notes
Enviado por SSmpm el día 15 de abril de 2008
yo estoy intentando enviar correo desde visual basic con MAPIMessages y solo me deja enviar en texto plano (pq no hace nada el .msgtype=0 ) y siempre me pregunta por cada envio aunque le pongo la opcion en el Outlook q no pregunte. Me podeis ayudar?
Yo se que este post es un poco viejo, pero nadie respondio. Yo tengo una solucion que no se si es de primera pero funciona. Consiste en crear un archivo temporal html y luego ponerlo como attachment
Re: Re: Re: Re: Re: Enviar mail con visual basic y Lotus Notes
Enviado por Moni el día 3 de junio de 2008
Yo ya hice una aplicación en vb que manda lotus el problema es que me lo manda sin formato, me lo manda super raro aunque le pongo el create rich text alguna recomendacion??
oyep sabes yo ando en busca de v6 y outlook , soy programadora y tengo que hacer un trabajo porfavor si me puedes enviar el programa porfavor, lo necesito con urgencia .... :D agradeceria mucho
Foros de debate
Visual Basic
