Visual Basic 6 (VB6) is Microsofts nemen op de klassieke Basic computer programmeertaal. De VB6 versie van de taal en de IDE-programma gebruikt voor het maken van software was de laatste versie uitgebracht door Microsoft, voordat het .NET-versie. Softwareontwikkelaars gebruiken Visual Basic 6 maken een breed scala aan desktop applicaties voor het Windows-platform. Zelfs kunnen ontwikkelaars de functionaliteit voor het verzenden van e-mail via een Google Gmail-account toevoegen.
Open Visual Basic 6. VB6 komt als een standalone applicatie of een gedeelte van de Visual Studio 6. Als u de zelfstandige versie hebt, u kunt Dubbelklik op het VB6-pictogram op het bureaublad of klik op "Start", "Alle programma's," "Microsoft Visual Basic 6" en vervolgens "Visual Basic 6" het programma openen. Voor de Studio, klik op het icoon om te openen de visuele Studio 6. Klik op het tabblad 'Visual Basic' op het welkome scherm en kies vervolgens een bestaande Visual Basic-project openen of om te beginnen met een nieuwe.
Klik op "View" en vervolgens "Code" om over te schakelen naar de codeweergave. Een procedure die een e-mail via een Gmail-account stuurt toevoegen:
"Sub SendGmail()
Set emailMsg = CreateObject ("CDO. Bericht")
Set config = CreateObject ("CDO. Configuratie")
Set emailFields = config. Velden
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
' Wijzig de volgende regel naar uw gmail-e-mailadres
emailFields.Item (sch & "sendusername") = myemailaddress
' het wachtwoord dat u gebruikt om u te melden bij uw gmail emailaccount gebruiken
emailFields.Item (sch & "sendpassword") = mijnwachtwoord
emailFields.Item (sch & "smtpusessl") = 1
emailsFields.Update
Met emailMsg
. Op = op ' dit aan de ontvanger van de e-mail wijzigen
. From = myemailaddress ' dit naar uw e-mailadres wijzigen
. Onderwerp = "Het verzenden van een e-mail met Gmail en VB6" ' veranderen aan uw onderwerpregel
. HTMLBody = "Dit is een test." ' dit veranderen in het lichaam van de e-mail
Instellen. Configuratie config =
. Verzenden
Eindigen met
' alles clearing-out voor volgende e-mail
Set emailMsg = niets
Set config = niets
Set emailFields = niets
End Sub"
Het gedeelte van de code waarin u wordt gevraagd uw specificaties, zoals uw Gmail-e-mailadres en wachtwoord wijzigen. De items die u wilt wijzigen is uitgecommentarieerd; Wat betekent dat het begint met een apostrof (').
Klik op de "Save" pictogram in de werkbalk wijzigingen in de VB6 project wilt opslaan.
