Mail desde vb6

Chin_Car · #1 (**permalink**) 14/03/2009, 15:20

Hola!

Necesito armar y enviar un mail desde un form en vb6. Ya tengo hecho lo principal: mailto, subject y body, y funciona perfectamente.

Pero quiero saber si se puede mandar además como parámetro la dirección ORIGEN del mensaje (para cuando hay varias cuentas configuradas en outlook).

Muchas Gracias!

culd · #2 (**permalink**) 14/03/2009, 18:56

Hay una dll que te puede ayudar a enviar mails mediante SMTP directamente configurando un par de parametros como servidor smtp, puerto, usuario y contraseña... Asi obvias el outlook

OstroSoft SMTP Component (ossmtp.dll)

Buscala

Avellaneda · #3 (**permalink**) 15/03/2009, 06:05

Hola!

La propiedad SentOnBehalfOfName del objeto MailItem envía el correo desde la cuenta principal, pero "en nombre de..."

Código vb:

Ver originalDim olMail As Outlook.MailItem
Set olMail = olApp.CreateItem(olMailItem)
olMail.To = "[email protected]"
olMail.SentOnBehalfOfName = "[email protected]"
olMail.Subject = "El asunto..."
olMail.Body = "El mensaje..."
olMail.Send

Lo recibirá el destinatario desde la cuenta principal de Outlook pero con el mensaje en nombre de; [email protected]
Y si el destinatario le da a responder, lo recibirá este ultimo ([email protected])

Saludos

Chin_Car · #4 (**permalink**) 16/03/2009, 13:50

Hola a todos! Gracias por las sugerencias, el tema es que yo lo tengo implementado con un shellexecute. lo que necesito es saber con qué NOMBRE de parámetro se le pasa ese dato... acá les muestro el código por si alguien me puede ayudar:

Dim InfoMail As String 'linea completa armada con los parámetros
Dim Email As String 'destinatario
Dim Asunto As String
Dim DESDE As String 'mail origen

Email = "mailto:" & adoEmpresasCAS.Recordset.Fields!mail & "?"

Asunto = "subject=" & "INCIDENTE N° " & txtID

MENSAJE = Chr(38) & "body=" & Replace(txtmensaje, vbCrLf, saltoLinea)

DESDE = "PARAMETRO:" & "[email protected]"

InfoEmail = DESDE & Email & Asunto & MENSAJE

ShellExecute Me.hwnd, vbNullString, InfoEmail, vbNullString, "C:\", SW_SHOWNORMAL

Gracias!!!!!!

culd · #5 (**permalink**) 16/03/2009, 14:20

Insisto, si la maquina no tiene outlook no tiene sentido esto... Usa la DLL que te mensione anteriormente asi solo dependes de la DLL

Chin_Car · #6 (**permalink**) 16/03/2009, 15:12

la máquina si tiene outlook!!

culd · #7 (**permalink**) 16/03/2009, 19:30

Cita:

Iniciado por Chin_Car

la máquina si tiene outlook!!

A siii???

Y si no esta configurado el outlook???? Ahi ya no sirve...

Vamos devuelta...

La dll que mensione hace lo que teoricamente hace el outlook... Es muy sensilla de utilizar solamente se le da los siguientes parametros.

Servidor SMTP
Puerto SMTP
Email Destinataria
Asunto
Mensaje

Nada mas.

Chin_Car · #8 (**permalink**) 17/03/2009, 14:21

Está bien. Lo voy a buscar para tenerlo en cuenta. Pero si estuviera casi "encaprichada" con hacerlo a mi manera, me sabrías decir cómo???

Gracias por tu tiempo!

GeoAvila · #9 (**permalink**) 17/03/2009, 15:19

en las faq's hay une emplo de envio de mails por si te sirve, pero creo que si lo posteo un muchachote apuesto guatemalteco, bueno moso y sabe programar por si te interesa

El link
http://www.forosdelweb.com/f69/faqs-...ml#post1257252

nos vemos.

seba123neo · #10 (**permalink**) 18/03/2009, 21:47

Hola, tenes un monton de formas de mandar mail desde visual basic , creo que la del outlook es la mas "cutre" por asi decirlo, mirate algunas de estas:

Enviar correo con Microsoft CDO

Enviar Mail con el control Mapi

Ocx para Enviar Mail

Componente activex para enviar mail

Enviar email con el control Winsock

Dll activex para enviar correo desde Visual Basic

saludos.

JRoviralta · #11 (**permalink**) 16/03/2016, 03:19

#2

Buenas, e probado el programa, y solo me deja enviar un email a cuentas de correo que sean del mismo servidor de donde sale el correo.
Sabes por que puede ser?

Gracias de antemano

Saludos!