Visual Basic 6 ( VB6 ) er Microsofts ta på den klassiske Basic programmeringsspråk . Den VB6 versjonen av språket og IDE program som brukes til å lage programvare var den siste versjonen utgitt av Microsoft før . NET versjon . Programvareutviklere bruke Visual Basic 6 for å skape et bredt spekter av desktop-applikasjoner for Windows-plattformen . Utviklere kan selv legge til funksjonalitet for å sende e-post gjennom en Google Gmail -konto. Instruksjoner
en

Åpen Visual Basic 6 . VB6 kommer som et frittstående program eller en del av Visual Studio 6 . Hvis du har den frittstående versjonen , kan du dobbeltklikke på VB6 ikonet på skrivebordet, eller klikk " Start", " Alle programmer , " "Microsoft Visual Basic 6 " og deretter " Visual Basic 6 " for å åpne programmet . For Studio , klikk på ikonet for å åpne Visual Studio 6 . Klikk på " Visual Basic "-kategorien på velkomstskjermen, og deretter velge å åpne et eksisterende Visual Basic-prosjekt eller for å starte en ny.
2

Klikk på "Vis" og deretter " kode " for å bytte å kode visning. Legg til en prosedyre som vil sende en e-post gjennom en Gmail-konto : en

" Sub SendGmail ( )

Set emailMsg = CreateObject ( " CDO.Message ")

Set config = CreateObject ( " CDO.Configuration ")

Set 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

' endre følgende linje til din gmail e-postadresse

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

' bruke passordet du bruker til å logge inn på din Gmail- konto

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

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

emailsFields.Update
p Med emailMsg

. å = for å "endre dette til mottager ( s ) av e-

. fra = [email protected] ' endre dette til din e-postadresse

. Emne = "Sender en e-post med Gmail og VB6 " endre til emnefeltet

. HTMLBody = " dette er en test. " ' endre dette til kroppen av e-posten

Set. Configuration = config

. Send

End med

' rydde alt ut for neste e-post

Set emailMsg = Ingenting

Set config = Ingenting

Set emailFields = Ingenting

End Sub "
3

Endre den delen av koden som ber om dine detaljer , som for eksempel Gmail e-postadresse og passord. Elementene som du trenger å endre er kommentert ut , noe som betyr at den starter med en apostrof (' )
4

Klikk på "Lagre "-ikonet på verktøylinjen for å lagre endringene i VB6 prosjektet < . . br >