Cómo recibir correos electrónicos en VB
Al escribir un programa para enviar correos electrónicos en VB6, hay una variedad de componentes de correo electrónico para elegir, como MAPIMessages, CDONTS (NTS Collaboration) que viene con IIS 4.0 Data Objects), así como software de correo electrónico desarrollado por muchos proveedores externos. Este artículo presenta el uso de CDONTS para desarrollar un programa de correo bajo el método 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 predeterminada instalada al instalar el paquete de opciones. . Si está instalado un servidor SMTP, existirá un archivo llamado cdonts.dll en el directorio System32.
2. El programa de correo electrónico más simple
El siguiente es el programa de correo electrónico más simple. Envía un correo electrónico con el asunto "Título" y el contenido "Hola" desde me@hotmail.net a abc@263.net. "Correo electrónico:
Sub privado cmdSendMail_Click()
Atenuar objMail como objeto
Establecer objMail=CreateObject("CDFONTS.DLL")
ObjMail.Enviar "me@hotmail.net", "abc@263.net", "Título", "Hola"
Establecer objMail=nada
Fin Sub
3. Enviar archivos adjuntos de correo electrónico
Si hay otros archivos que deben enviarse con el correo electrónico, puede utilizar el método AttachFile de CDONTS:
Private Sub. cmdSendMail_Click()
Atenuar objMail como objeto
Establecer objMail=CreateObject(" CDFONTS.DLL")
End Sub
3. DLL")
Usar ObjMail
.From="me@hotmail.net"
.To="abc@263.net"
.Asunto="título"
.Body="Hola"
.AttachFile "c:\document\ sample.doc", "sample.doc"
.Enviar
Finalizar con
Establecer objMail=nada
End Sub
4. Propiedades y métodos comúnmente utilizados en Componentes CDONTS
Las propiedades y métodos comúnmente utilizados en el componente CDONTS son los siguientes:
Propiedades:
Versión: Devuelve el número de versión del componente CDONTS
MailFormat: formato de correo, 1 - tipo de texto normal; 0 - tipo MIME
Cc: establece una o más direcciones de correo electrónico referenciadas
De: la dirección del remitente del correo electrónico
Para: dirección del destinatario del correo electrónico
Asunto: título
Cuerpo: contenido
BodyFormat: formato de contenido, 1 - texto normal ; 0 - hipertexto
Método:
Adjuntar archivo: Adjuntar archivo
Adjuntar URL: Adjuntar dirección
Enviar: Enviar correo electrónico
5. Envíe correos electrónicos en formato de hipertexto
Debe haber visto muchos correos electrónicos que utilizan formato de hipertexto, que no solo puede contener imágenes y sonidos, sino también incrustar animaciones.
Incluso puedes insertar animaciones. Si envía un correo electrónico a un amigo, será una agradable sorpresa para él porque los programas normales de envío de correo electrónico no pueden hacer esto. DLL")
Atenuar strHTML como cadena
StrHTML=""
StrHTML = StrHTML + ""
StrHTML= StrHTML+""
StrHTML = StrHTML + "
Ejemplo de envío de correo electrónico usando CDONTS"
StrHTML= StrHTML + "
"
p>
StrHTML= StrHTML + "
El ejemplo anterior tiene muestras de imágenes incrustadas. gif
"
StrHTML= StrHTML+""
Con ObjMail
.From= "me@hotmail.net"
.To= "abc@263.net"
.Subject="Title"
.Body=strHTML
.AttachURL "c: \mydata\sample.gif", "sample.gif"
.BodyFormat=0
.EmailFormat=0
.Enviar
Termina con
Establecer objMail =nada
End Sub
Aquí, creo que debes haber descubierto una falla en el procesamiento de correo SMTP. El servidor SMTP recibe tu correo. Se recibe el correo electrónico de salida, pero el nombre y la dirección del remitente no están verificados. Esto está determinado por el mecanismo de envío asincrónico de SMTP, pero algunas personas pueden usarlo con motivos ocultos para fingir que es un correo electrónico enviado por otra persona. te recomienda que no lo intentes a la ligera, tu cuenta probablemente será eliminada inmediatamente si le informas a tu ISP lo que estás haciendo.