Come inviare una email tramite G-Mail in Visual Basic 6

Visual Basic 6 ( VB6 ) è Microsoft di assumere il classico linguaggio di programmazione di base del computer . La versione VB6 della lingua e il programma IDE utilizzato per creare software è stata l'ultima versione rilasciata da Microsoft prima della versione . NET . Gli sviluppatori di software utilizzano Visual Basic 6 per creare una vasta gamma di applicazioni desktop per la piattaforma Windows . Gli sviluppatori possono anche aggiungere la funzionalità di inviare e-mail tramite un account Google Gmail . Istruzioni
1

Aprire Visual Basic 6 . VB6 si presenta come applicazione stand-alone o in parte il Visual Studio 6 . Se avete la versione standalone , è possibile fare doppio clic sull'icona VB6 sul desktop oppure fare clic su "Start ", " Tutti i programmi ", "Microsoft Visual Basic 6 " e poi " Visual Basic 6" per aprire il programma . Per lo Studio , fare clic sull'icona per aprire il Visual Studio 6 . Fare clic sulla scheda " Visual Basic " nella schermata di benvenuto e quindi scegliere di aprire un progetto di Visual Basic esistente o per avviare una nuova.
2

Clicca su "Visualizza " e poi " Codice" per passare al codice della vista . Aggiungi una procedura che invierà una e-mail tramite un account Gmail :

"Sub SendGmail ( ) per

emailMsg = CreateObject ( " CDO.Message " ) per

Set config = CreateObject ( " CDO.Configuration " ) per

emailFields = config.Fields

sch = " http://schemas.Microsoft.com/cdo/configuration/"

emailFields.Item ( sch & " sendusing " ) = 2

emailFields.Item ( sch & " SmtpServer " ) = " smtp.gmail.com "

emailFields.Item ( sch & " SMTPServerPort " ) = 465

emailFields.Item ( sch &" SMTPAuthenticate " ) = 1

' modificare la riga seguente al vostro indirizzo e-mail gmail

emailFields.Item ( sch & " sendusername " ) = [email protected]

' usare la password che utilizzi per accedere al tuo account di posta elettronica Gmail

emailFields.Item ( sch & " sendpassword " ) = password

emailFields.Item ( sch & " SMTPUseSSL " ) = 1

emailsFields.Update

emailMsg

. a = a ' cambiare questo al destinatario ( s ) della mail

. From = [email protected] ' cambiare questo al tuo indirizzo email

. Oggetto = "Invio di una e-mail con Gmail e VB6 "' cambiare per la linea dell'oggetto

. HTMLBody = " questo è un test . " ' cambiare questo al corpo della e-mail

. Configurazione = config

. Invia

End con

' clearing tutto fuori per la prossima email

emailMsg = Nothing Set

config = Nothing

emailFields = Nothing

End Sub "
3

modificare la parte del codice che chiede le vostre specifiche , come ad esempio il tuo indirizzo e-mail e la password Gmail . Gli elementi che è da cambiare è commentate , il che significa che inizia con un apostrofo (' ) economici 4

Clicca sull'icona "Salva" nella barra degli strumenti per salvare le modifiche al progetto VB6 < . . br>

• Come attivare una particolare visione in un MultiView 
• Come creare Vb.Net Documentazione