• Viernes 15 de Noviembre de 2024, 07:24

Autor Tema:  Re: Enviar y recibir correos  (Leído 6721 veces)

giomar

  • Miembro MUY activo
  • ***
  • Mensajes: 270
    • Ver Perfil
Re: Enviar y recibir correos
« en: Martes 5 de Agosto de 2003, 18:34 »
0
Hola mi nombre es Giomar:
Quisiera saber como puedo enviar y recibir correos desde una aplicacion de Visual Basic y si es posible sin utilizar DLL o OCX.
Me ayudarias bastante si el código o aplicación que recibire esta explicado ya que mi finalidad es la de aprender a desarrollar este tipo de aplicación.
Giomar B.
Desarrollador Web Profesional


J.M.Movilla

  • Miembro MUY activo
  • ***
  • Mensajes: 427
    • Ver Perfil
Re: Enviar y recibir correos
« Respuesta #1 en: Martes 5 de Agosto de 2003, 19:01 »
0
Abre, por favor, esta consulta de hace unos días; ahí tienes la fórmula, que confirman que funciona bien:

http://foros.solocodigo.com/viewthread.php?tid=3914

Saludos y suerte

chiaravel

  • Miembro MUY activo
  • ***
  • Mensajes: 242
    • Ver Perfil
Re: Enviar y recibir correos
« Respuesta #2 en: Martes 5 de Agosto de 2003, 19:30 »
0
Si no tuvieras problema en usar un OCX te recomendaria el OCX ASPEMAIL que encontraras en ...

http://www.persits.com

Es excelente y te permite enviar un Email totalmente silenciosamente sin que la aplicacion abra el Outlook o Outlook Express y te permito todo lo que harias desde un Outlook (Enviar con copia, con copia oculta, attachar archivos, indicar un Reply to, etc).

Ademas te permite enviar como BODY un HTML totalmente abierto y no como un archivo adjunto.

En este sitio web te podras bajar la version completa, pero tiene (si mal no recuerdo) 30 dias para probarla, luego de eso tenes que comprarla.


Te copio algo de codigo de ejemplo para que veas lo sencillo que es.


mail.ResetAll
mail.IsHTML = True
mail.Host = "130.120.110.31"
mail.From = "prueba@pru.com"
mail.FromName = "Pablo G. Tilotta" mail.AddAddress "xxx@destino.com"
If Len(Trim(txt_con_copia)) > 0 Then
   mail.AddAddress txt_con_copia
End If
 
mail.AddReplyTo "ptilotta@prestigioweb.com"

Rem mail.AddEmbeddedImage "c:mis   documentoslogo.jpg", "MY-IMAGE"
mail.Subject = txt_asunto

Rem mail.Body = "Este es el logo oficial de la empresa" & Chr(13) & Chr(10) & "Estas interesado en pertenecer a ella ??"

mail.AppendBodyFromFile (archivo)

mail.Send

MsgBox "El Email ya fue enviado", vbExclamation, "Proceso Finalizado"




Como veras tenes la opcion de incluir en el Body un texto determinado, incluir en dicho body un jpg, o simplemente como se ve en el ultimo ejemplo... insertar en dicho BODY un archivo de formato HTML o texto.

Una Joya...

claro que pasado ese tiempo, tendrias que comprarlo, pero como sabras.... todo eso se puede conseguir sin pagar.

Suerte
Pablo Tilotta
Analista de Sistemas
Argentina

giomar

  • Miembro MUY activo
  • ***
  • Mensajes: 270
    • Ver Perfil
Re: Enviar y recibir correos
« Respuesta #3 en: Martes 5 de Agosto de 2003, 20:16 »
0
Hola "J.M.Movilla" gracias por tu ayuda pero hay un pequeño problema he probado el codigo desde un formulario puse mi direccion elecctronica pero al abrir mi correo observo que el e-mail no llega y no se que estare haciendo mal, el codigo que he utilizado es el siguente:

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long


Private Sub Command1_Click()
Dim sLink As String
sLink = "giomar_be@hotmail.com"
ShellExecute 0, vbNullString, "mailto:" & sLink, vbNullString, vbNullString, vbNormalFocus
End Sub

Si encuentras el problema hazmelo saber
De antemano gracias!
Giomar B.
Desarrollador Web Profesional


giomar

  • Miembro MUY activo
  • ***
  • Mensajes: 270
    • Ver Perfil
Re: Enviar y recibir correos
« Respuesta #4 en: Martes 5 de Agosto de 2003, 20:19 »
0
Hola "MiguelPG"
Me parece muy buena tu ayuda y voy a poner en practica.
Si tengo algun problema te lo hare saber.
Muchas gracias!
Giomar B.
Desarrollador Web Profesional


J.M.Movilla

  • Miembro MUY activo
  • ***
  • Mensajes: 427
    • Ver Perfil
Re: Enviar y recibir correos
« Respuesta #5 en: Miércoles 6 de Agosto de 2003, 00:01 »
0
No veo aparentemente ningún fallo en tu código, salvo que no tengas instalado el Outloock...

Por si hubiera otra causa, te adjunto un programita que utiliza esa misma rutina (ampliada para conectarte a una pág Web), y que te puedo garantizar que funciona, porque acabo de mandarme un par de correos.  ¡Por favor, no lo probéis con la dirección del ejemplo y me saturéis el buzón...!!!

Saludos y suerte
El mensaje contiene 1 archivo adjunto. Debes ingresar o registrarte para poder verlo y descargarlo.

giomar

  • Miembro MUY activo
  • ***
  • Mensajes: 270
    • Ver Perfil
Re: Enviar y recibir correos
« Respuesta #6 en: Miércoles 6 de Agosto de 2003, 21:48 »
0
Ahora entiendo porque no salia es que en esta maquina no tiene instalado el Outloock...
Bueno gracias por tu tiempo nuevamente
Un saludo...
Giomar B.
Desarrollador Web Profesional


chiaravel

  • Miembro MUY activo
  • ***
  • Mensajes: 242
    • Ver Perfil
Enviar y recibir correos
« Respuesta #7 en: Miércoles 6 de Agosto de 2003, 21:55 »
0
Evidentemente el amigo JMMovilla te esta ayudando porque el es todo un caballero.

Pero vos .... GIOMAR querido, sos bastante mal educado, ya que me he esmerado en aconsejarte una solucion a tu problema (con ejemlos y todo) y no fuiste capaz de decir "no me sirve, pero Gracias !!!!".

En fin.....

hay de todo en la vida. y uno no puede andar ensenando educacion a todo el mundo.
Pablo Tilotta
Analista de Sistemas
Argentina

KuKo

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
Re: Enviar y recibir correos
« Respuesta #8 en: Jueves 10 de Junio de 2004, 22:49 »
0
cHIARAVEL,

Si todavias andas por ahi rondeando  :P .

A mi si me fue de mucha ayuda tu post. :D
Gracias por compartir tus conocimientos.  ;)

Para que veas, nada en la vida es en vano.   B)