Programación VB Una pregunta: Cómo enviar contenido de entrada a un correo electrónico específico, como se muestra en la figura:
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?