Utilice VB6 para escribir programas para enviar correos electrónicos. Hay una variedad de componentes de correo electrónico para elegir, como MAPIMessages, CDONTS (NTSCollaborationDataObjects) incluidos con IIS4.0 y software de correo electrónico desarrollado por muchos fabricantes externos. Este artículo presenta cómo utilizar CDONTS para desarrollar un programa de correo en VB.
1. Confirme que el servidor SMTP esté instalado.
Primero, debe confirmar que el servidor SMTP esté instalado en el servidor IIS. Esta es la opción que se instala de forma predeterminada al instalar OptionPack. Si se ha instalado el servidor SMTP, habrá un archivo llamado cdonts.dll en el directorio System32.
2. El programa de envío de correo electrónico más sencillo
El siguiente es el programa de envío de correo electrónico más simple, que envía un correo electrónico con el título "Título" y el contenido "Hola" desde [email protected] a [email protected]:
PRivateSubcmdSendMail_Click()
DimobjmailasObjeto
SetobjMail=CrearObjeto("CDFONTS.DLL")
ObjMail.Enviar"[email protected]","[email protected]","Título","Hola"
SetobjMail=nada
FinSub
3. Enviar archivos adjuntos de correo electrónico
Si hay un archivo adjunto que debe enviarse junto con el correo electrónico, puede utilizar el método AttachFile de CDONTS:
PrivadoSubcmdSendMail_Click()
DimobjMailasObjeto
SetobjMail=CrearObjeto("CDFONTS.DLL")
ConObjMail
.De="[email protected]"
.To="[email protected]"
.Subject="Título"
.Body="Hola"
.AttachFile"c:/document/sample.doc","sample.doc"
.Enviar
terminar con
SetobjMail=nada
FinSub
4.Propiedades y métodos de uso común de los componentes CDONTS
Las propiedades y métodos comúnmente utilizados de los componentes CDONTS se enumeran a continuación:
propiedad:
Versión: Devuelve el número de versión del componente CDONTS.
MailFormat: formato de correo electrónico, 1 tipo de texto normal;
CC: establezca una o más direcciones de correo electrónico como referencia
De: la dirección del remitente del correo electrónico
Para: La dirección del destinatario del correo electrónico.
Asunto: título
Cuerpo: contenido
BodyFormat: formato de contenido, 1-texto normal;
método:
Adjuntar Archivo: Adjuntar un archivo
AdjuntarURL: adjuntar una dirección
Enviar: enviar correo electrónico
5.Enviar correo electrónico en formato de hipertexto
Seguramente habrás visto muchos correos electrónicos que utilizan formato de hipertexto, que no sólo puede contener imágenes y sonidos, sino también incrustar animaciones. Si envía un correo electrónico de este tipo a su amigo, definitivamente le traerá una sorpresa inesperada, porque esto es algo que los programas de envío de correo electrónico comunes no pueden hacer. Lo siguiente utiliza el componente CDONTS para enviar un correo electrónico en formato HTML, que contiene una imagen llamada sample.gif. El programa es el siguiente:
PrivadoSubcmdSendMail_Click()
DimobjMailasObjeto
SetobjMail=CrearObjeto("CDFONTS.DLL")
DimstrHTMLasString
StrHTML="〈html〉〈cabeza〉"
StrHTML=StrHTML "〈título〉Email〈/título〉〈/head〉 usando formato de hipertexto
StrHTML=StrHTML "〈body〉〈p〉〈strong〉Ejemplo de envío de correo electrónico usando CDONTS"
StrHTML=StrHTML "〈imgsrc=sample.gif〉〈/strong〉〈/p〉"
StrHTML=StrHTML "〈p〉El ejemplo anterior tiene una imagen incrustada sample.gif〈/p〉"
StrHTML=StrHTML "〈/cuerpo〉〈/html〉"
ConObjMail
.De="[email protected]"
.To="[email protected]"
.Subject="Título"
.Cuerpo=strHTML
.AttachURL"c:/misdatos/sample.gif","sample.gif"
.FormatoCuerpo=0
.Formato de correo electrónico = 0
.Enviar
terminar con
SetobjMail=nada
FinSub
En este punto, creo que debes haber descubierto una falla en el procesamiento de correo electrónico SMTP. El servidor SMTP recibe su mensaje de salida, pero no verifica el nombre y la dirección del remitente. Esto está determinado por el mecanismo de envío asincrónico de SMTP, ¡pero alguien puede usarlo con motivos ocultos para hacerse pasar por otra persona y enviar correos electrónicos! Este artículo recomienda encarecidamente que no lo intente fácilmente. Una vez que su ISP conozca su comportamiento, lo más probable es que su cuenta sea eliminada de inmediato. ->