Wie man eine E-Mail über G -Mail in Visual Basic 6 senden . Die VB6 Version der Sprache und der IDE -Programm verwendet werden, um Software zu schaffen, war die letzte Version von Microsoft vor . NET -Version veröffentlicht . Software -Entwickler verwenden Visual Basic 6 , um eine Vielzahl von Desktop-Anwendungen für die Windows-Plattform zu erstellen. Entwickler können sogar E-Mail- Funktionalität, um durch eine Google Gmail-Konto zu senden. Anleitung
1

Öffnen Sie Visual Basic 6 . VB6 kommt als Standalone-Anwendung oder einen Teil der Visual Studio 6 . Wenn Sie die Standalone-Version haben, können Sie auf dem VB6 Symbol auf Ihrem Desktop doppelklicken oder klicken Sie auf " Start", " Alle Programme", "Microsoft Visual Basic 6 " und dann auf " Visual Basic 6 ", um das Programm zu öffnen. Für das Studio , auf das Symbol zum Öffnen des Visual Studio 6 klicken . Klicken Sie auf " Visual Basic " auf die Registerkarte Willkommens-Bildschirm und wählen Sie dann eine bestehende Visual Basic-Projekt zu öffnen oder eine neue zu starten .
2

Klicken Sie auf "Ansicht" und dann "Code" zu wechseln auf Code anzeigen. Fügen Sie eine Prozedur, die eine E-Mail durch ein Google Mail-Konto senden :

"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

" ändern Sie die folgende Zeile zu Ihrer Google Mail-Adresse

emailFields.Item (sch & " sendusername " ) = myemailaddress@gmail.com

' verwenden Sie das Kennwort in Ihr E-Mail Konto gmail

emailFields.Item (sch & " sendpassword " ) = mypassword
einloggen

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

emailsFields.Update

emailMsg

. To = To ' ändern diese an den Empfänger ( s ) der E-Mail

. From = myemailaddress@gmail.com ' ändern, um Ihre E-Mail -Adresse

. Subject = " Senden einer E-Mail mit Gmail und VB6 " ' auf Ihrer Betreffzeile ändern

. HTMLBody = "Dies ist ein Test. " ' ändern, um den Körper der E-Mail

Set . Configuration = config

. senden

End mit