VB escribe un correo electrónico y lo envía.

1. El programa de envío de correo electrónico más simple

El siguiente es el programa de envío de correo electrónico más simple, que es de me@hotmail.net Enviar un correo electrónico con el título "Título" y el contenido "Hola" a abc@263.net:

Private Sub cmdSendMail_Click()

Atenuar objMail como objeto

establecer obj mail = CreateObject(" CD fonts.DLL")

ObjMail. Enviar "me@hotmail.net", "abc@263.net", "Título", "Hola"

Establecer objMail=nada

Conector final

Enviar archivo adjunto de correo electrónico

Si tiene un archivo adjunto para enviar con el correo electrónico, puede usar el método AttachFile de CDONTS:

Private Sub cmdSendMail_Click()

Atenuar objMail como objeto

establecer obj mail = CreateObject("CD fonts.DLL")

Usar ObjMail

. De = "me@hotmail.net "

. Para= "abc@263.net "

. Asunto="Título "

. Cuerpo= "Hola"

. Archivo adjunto "c:\document\sample.doc", "sample.doc"

. Enviar

Finalizar con...

Establecer objMail=nada

Conector final

- gt gt gt gt gt gt gt; gt gt

Haga clic aquí para obtener más detalles:

/question/44982191.html