Red de conocimiento informático - Problemas con los teléfonos móviles - Programación VB Una pregunta: Cómo enviar contenido de entrada a un correo electrónico específico, como se muestra en la figura:

Programación VB Una pregunta: Cómo enviar contenido de entrada a un correo electrónico específico, como se muestra en la figura:

Sub?SendMail(ByVal?myAdd?As?String, ByVal?destAdd?As?String, ByVal?sTopic?As?String, ByVal?sContent?As?String, ByVal?SMTP?As?String, ?ByVal?sUserName?As ?String, ?ByVal?sPassWord?As?String, ?ByRef?atcFile()?As?String)

Nombres?"=?/cdo/configuration/"

Establecer? Email?=?CreateObject("CDO.Message")

Email.From?=?myAdd?'?//Su propio número de tanque

Email.To?=?destAdd ? '?//?Número de tanque enviado" (añade malvadamente tu propio correo electrónico)

Email.Subject?=?sTopic?'?//Equivalente al título del correo electrónico"

Email.Textbody?=?sContent?'//Equivalente al contenido del correo electrónico (registre la IP del remitente)

Si?UBound(atcFile)=0, entonces

De lo contrario

¿Para?Cada?nArchivo?En?atcFile

Email.AddAttachment?nFile

Siguiente

¿Fin de Email.Configuration.Fields? Items(NameS?amp;? "sendusing")=?2?'Utilice un servidor de correo que requiera inicio de sesión

Email.Configuration.Fields.Items(NameS?amp;? "smtpserver ")=?SMTP ?=?1

Email.Configuration.Fields.Item(NameS?=?sPassWord?'//Contraseña de tu tanque de gasolina

Email.Configuration.Fields .Update

Correo electrónico.Enviar

¿Finalizar?