https://foro.gambas-es.org/viewtopic.php?f=1&t=30&p=60#p60
-----------------------------------
soplo
Martes, 15 Septiembre 2009, 09:54

La Clase SMTP
-----------------------------------
Esta clase sirve para enviar email mediante SMTP.

Requiere GB.NET.SMTP

[color=darkgreen][size=14]Propiedades[/size][/color]

[color=darkred]from[/color]
Indica el email origen. Debe ser por tanto un string con un email válido para admitir respuesta.

[color=darkred]Host[/color]
El servidor SMTP que recibirá el email

[color=darkred]Port[/color]
El puerto SMTP a utilizar. Por defecto es el 25.

[color=darkred]Subject[/color]
El asunto del email

[color=darkred]to[/color]
La lista dedestinatarios del mensaje. Utiliza el método add para añadir destinatarios
[code linenumbers=false]MiMail.to.add="direccion@dominio.com"[/code]
[color=darkred]cc[/color]
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.

[color=darkred]bcc[/color]
Igual que cc pero sin dejar registro alguno. Los destinatarios normales no sabrán que también el email llegó a los destinatarios bcc. 

[color=darkgreen][size=14]Métodos[/size][/color]
[color=darkred]add[/color]
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
[url=http://www.utoronto.ca/webdocs/HTMLdocs/Book/Book-3ed/appb/mimetype.html]Lista de mime-types

[color=darkred]send[/color]
Hacer efectiva la orden de enviar el email[size=14] [/size]

[color=darkgreen][size=14]Ejemplo[/size][/color]
Enviar un email con un adjunto a las direcciónes destino1 y destino2@aplicacion.com. Llegará también una copia a la dirección jefe@aplicacion.com y se adjuntará el archivo.txt

[code linenumbers=false]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
[/code]


