Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Problema Con SmtpClient
Autor Mensaje
Responder citando   Descargar mensaje 
Mensaje Problema Con SmtpClient 
 
Hace unos días me metí en el problema de mandar Mails Con Imágenes Incrustadas , el caso es que pude mandarlas con una  liga en el cuerpo del mail , lo mande a mis propias cuentas de la empresa para hacer las pruebas correspondientes y funciono, pero me topo con el caso de que si las mando a cuentas de Gmail o Hotmail simple y llanamente no llegan, la verdad ni idea del porque espero me puedan ayudar a encontrar una solución al problema, les dejo el código del envío, de antemano mil gracias por su ayuda.

' gambas class file

PUBLIC imagen AS String
PUBLIC ruta AS String
PUBLIC archivo AS String

PUBLIC SUB Form_Open()

  ME.Center()
  ME.Title = "Envío de FACTURA "

END

PUBLIC SUB DirView1_Click()

  FileView1.Dir = DirView1.Current

END

PUBLIC SUB FileView1_Click()

DIM tamano AS Integer
  
  ruta = DirView1.Current
  archivo = FileView1.Current
  tamano = FileView1.Width
  
  imagen = ruta & "/" & archivo
  TextBox3.Text = imagen
  PictureBox1.Picture = Picture[imagen]

END

PUBLIC SUB Button3_Click()

  ME.Close

END

PUBLIC SUB Button2_Click()

 DIM Correo AS SmtpClient
 DIM remitente AS String
 DIM Asunto AS String
 DIM Mensaje AS String
  
   Asunto = (TextBox1.Text)
      
 '  remitente = "micuenta@miservidor.com"
   Mensaje = "<body><img src='http://www.miservidor.com/facturas/" & archivo & "'></body>"

'Envío del mensaje  
Correo = NEW SmtpClient
Correo.To.Add(TextBox2.Text)
Correo.From = "micuenta@miservidor.com"
Correo.Subject = Asunto
Correo.Host = "mail.miservidor.com"
Correo.Port = "26"
Correo.Add(Mensaje, "text/html")
Correo.Send()
message.Info("Mensaje Enviado")
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox2.SetFocus

END



PUBLIC SUB Button1_Click()

DIM FtpBCM AS NEW FtpClient

 DIM servidor AS String
 DIM usuario AS String
 DIM llave AS String
 DIM directorio AS String
  
   directorio = "/httpdocs/facturas/"
   servidor = "miservidor.com"
   usuario = "usuario"
   llave = "llave"
  

'Envío del FTP  

FtpBCM.URL = servidor & directorio & archivo
FtpBCM.Timeout = 60
FtpBCM.User = usuario
FtpBCM.Password = llave
FtpBCM.Put(imagen)
TextBox4.Text = FtpBCM.Status
DO UNTIL FtpBCM.Status <= 0
    IF FtpBCM.Status = 6
    TextBox4.Text = "Conectando con servidor remoto (status:" & FtpBCM.Status & ")"
    END IF
    IF FtpBCM.Status = 4
    TextBox4.Text = "Enviando archivo al servidor (status:" & FtpBCM.Status & ")"
    END IF
    IF FtpBCM.Status = 0
    TextBox4.Text = "En espera (status:" & FtpBCM.Status & ")"
    END IF
    WAIT 0.01
LOOP

TextBox4.Text = "Transferencia terminada"

FtpBCM.Close()

END

PUBLIC SUB TextBox4_KeyPress()

END
 

 



 
pcastanedardz - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
Ocultar¡Este tema fue útil?

 

Elegir valoración:                       

Media de valoración Valoración mínima Valoración máxima Número de valoraciones
0.00 0 0 0
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Problema Con Sockets soplo General 1 Lunes, 05 Octobre 2009, 12:00 Ver último mensaje
jguardon
No hay nuevos mensajes Problema Con Ssh Y La Solucion. jousseph General 0 Jueves, 05 Septiembre 2013, 02:14 Ver último mensaje
jousseph
No hay nuevos mensajes Problema Con ShowModal frajanic General 20 Sabado, 11 Julio 2015, 09:59 Ver último mensaje
Shell
No hay nuevos mensajes Problema Con Gb.sdl.sound ms7r General 4 Jueves, 03 Julio 2014, 21:01 Ver último mensaje
ms7r
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
No puede descargar archivos
No puede publicar eventos en el calendario