Una vez instalada la edicion
Shareware de CGR SendMail, encontrara en el Menu Programas de Windows
el codigo fuente en Visual Basic 6.0 de una completa aplicacion para el
envio de E-Mails, demostrando todas las funcionalidades del control.
Codigo de Ejemplo
With CGRSendmail1
.Init
.MailFrom "direccion-remitente@dominio.com",
"Mi Nombre"
.MailTo "direccion-destino@dominio.com",
"Su Nombre"
.BCC = "copia1@dom.com, copia2@dom.com, copia3@dom.com"
.Subject = "Prueba"
.TextMessage = "Mensaje de Prueba aqui..."
.HTMLMessage = "<B>Mensaje de <U>Prueba</U>
aqui...</B>"
.Attachment.Add
= "C:\directorio\archivo.zip"
.SendMail
End With
Do While Not CGRSendmail1.Ready
DoEvents ' Envios Asincronicos Loop
If CGRSendmail1.Error
<> 0 Then
Msgbox "Ha
ocurrido un error enviando el mensaje."
Else
Msgbox "Mensaje
enviado con exito!"
End If
