December 8
Visual Basic 6 (VB6) è introito di Microsoft sul classico linguaggio di programmazione di base. 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 funzionalità per inviare e-mail tramite un account Google Gmail.
1 Aprire Visual Basic 6. VB6 si presenta come applicazione stand-alone o parte di 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 Fare clic su "Visualizza" e poi "codice" per passare alla visualizzazione del codice. Aggiungere una procedura che invierà una e-mail tramite un account Gmail:
"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
'Modificare la riga seguente al vostro indirizzo di posta elettronica Gmail
emailFields.Item (sch & "sendusername") = [email protected]
'Utilizzare la password utilizzata per accedere al tuo account di posta elettronica Gmail
emailFields.Item (sch & "sendpassword") = mypassword
emailFields.Item (sch & "SMTPUseSSL") = 1
emailsFields.Update
con emailMsg
.Per = A 'cambiare questo al destinatario (s) della e-mail
.Da = [email protected] 'cambiare questo al tuo indirizzo email
.Subject = "L'invio di una e-mail con Gmail e VB6" 'modifica alla vostra linea tematica
.HTMLBody = "Questa è una prova". 'Cambiare questo al corpo del email
Set .Configuration = config
.Inviare
End With
'Compensazione tutto fuori per la prossima e-mail
Set emailMsg = Nothing
Set config = Nothing
Set emailFields = Nothing
End Sub "
3 Modificare la porzione di codice che chiede per le specifiche, come ad esempio il tuo indirizzo e-mail e la password Gmail. Gli oggetti che ti servono per cambiare é commentato; il che significa che inizia con un apostrofo ( ').
4 Fare clic sull'icona "Salva" nella barra degli strumenti per salvare le modifiche al progetto VB6.