Requiere GB.NET.SMTP
Propiedades
from
Indica el email origen. Debe ser por tanto un string con un email válido para admitir respuesta.
Host
El servidor SMTP que recibirá el email
Port
El puerto SMTP a utilizar. Por defecto es el 25.
Subject
El asunto del email
to
La lista dedestinatarios del mensaje. Utiliza el método add para añadir destinatarios
MiMail.to.add="direccion@dominio.com"
cc
Funciona igual que la propiedad to. Contiene direcciones que recibirán el email pero que no son parte directamente interesada. Es como enviar una copia al jefe de lo que se ha dicho en el email.
bcc
Igual que cc pero sin dejar registro alguno. Los destinatarios normales no sabrán que también el email llegó a los destinatarios bcc.
Métodos
add
Para añadir destinatarios al mensaje, a bcc o a cc.
El contenido es un string que contiene el email válido del destinatario.
También se utiliza para añadir adjuntos al email. En este caso los parámetros son:
add(cuerpo_del_email,Tipomime, Nombre_archivo).
Si no se ponde Tipomime se utiliza "text/plain".
Nombre_archivo es el adjunto que se desea enviar y es obviamente opcional.
El cuerpo del email es un string donde dice lo que el email debe decir.
gambas no soporta todos los mime-types.
Esta es la lista de mime-types
Lista de mime-types
send
Hacer efectiva la orden de enviar el email
Ejemplo
Enviar un email con un adjunto a las direcciónes destino1 y . Llegará también una copia a la dirección y se adjuntará el archivo.txt
sub Enviar()
Dim Correo as smtpclient, CRLF as string, CuerpoEmail as string
Dim EmailOrigen as string, EmailDestino1 as string, EmailDestino2 as string,EmailJefe as string
Dim Host as string, Puerto as string, Asunto as string, Mime as string, Cuerpo as string, Adjunto as string
EmailOrigen="EmailDelSistema@aplicación.com"
Host="localhost"
Puerto="25"
CRLF=chr(13) & chr(10)
Asunto="este es el asunto del email"
Mime="text/plain"
EmailDestino1="Destino1@aplicacion.com"
EmailDestino2="Destino2@aplicacion.com"
EmailJefe="Jefe@aplicacion.com"
Adjunto="Archivo.txt"
Correo=new smtpclient
correo.from=EmailOrigen
correo.host=host
correo.port=puerto
correo.subject=asunto
Correo.to.add=EmailDestino1
Correo.to.add=EmailDestino2
Correo.cc.add=EmailJefe
Cuerpo="*****************************" & CRLF
Cuerpo &= "" & CRLF
Cuerpo &="" & format(now,"dd/mm/yyyy") & CRLF
Cuerpo & = "" & CRLF
Cuerpo &="*****************************" & CRLF
Cuerpo &="Este es un emal automático. No lo responda pues nadie lo leerá." & CRLF
Cuerpo &= "Adjunto se encuentra el informe correspondiente" & CRLF
Cuerpo &= "Un saludo"
Correo.add(Cuerpo,mime,adjunto)
try correo.send
catch
message.error("No se pudo enviar el mensaje")
end
Dim Correo as smtpclient, CRLF as string, CuerpoEmail as string
Dim EmailOrigen as string, EmailDestino1 as string, EmailDestino2 as string,EmailJefe as string
Dim Host as string, Puerto as string, Asunto as string, Mime as string, Cuerpo as string, Adjunto as string
EmailOrigen="EmailDelSistema@aplicación.com"
Host="localhost"
Puerto="25"
CRLF=chr(13) & chr(10)
Asunto="este es el asunto del email"
Mime="text/plain"
EmailDestino1="Destino1@aplicacion.com"
EmailDestino2="Destino2@aplicacion.com"
EmailJefe="Jefe@aplicacion.com"
Adjunto="Archivo.txt"
Correo=new smtpclient
correo.from=EmailOrigen
correo.host=host
correo.port=puerto
correo.subject=asunto
Correo.to.add=EmailDestino1
Correo.to.add=EmailDestino2
Correo.cc.add=EmailJefe
Cuerpo="*****************************" & CRLF
Cuerpo &= "" & CRLF
Cuerpo &="" & format(now,"dd/mm/yyyy") & CRLF
Cuerpo & = "" & CRLF
Cuerpo &="*****************************" & CRLF
Cuerpo &="Este es un emal automático. No lo responda pues nadie lo leerá." & CRLF
Cuerpo &= "Adjunto se encuentra el informe correspondiente" & CRLF
Cuerpo &= "Un saludo"
Correo.add(Cuerpo,mime,adjunto)
try correo.send
catch
message.error("No se pudo enviar el mensaje")
end