Πώς να στείλετε ένα e-mail μέσω G -Mail σε Visual Basic 6

Visual Basic 6 ( VB6 ) είναι η δική της Microsoft σχετικά με την κλασική Basic γλώσσα προγραμματισμού ηλεκτρονικών υπολογιστών . Η έκδοση VB6 της γλώσσας και του προγράμματος IDE χρησιμοποιείται για να δημιουργήσει το λογισμικό ήταν η τελευταία έκδοση που κυκλοφόρησε από τη Microsoft πριν από τη ΝΕΤ έκδοση . . Οι προγραμματιστές χρησιμοποιούν Visual Basic 6 για να δημιουργήσετε μια μεγάλη ποικιλία από desktop εφαρμογές για την πλατφόρμα των Windows . Οι προγραμματιστές μπορούν να προσθέσουν ακόμη και λειτουργικότητα για την αποστολή e-mail μέσω ενός λογαριασμού Google Gmail . Οδηγίες
Η 1

Ανοίξτε Visual Basic 6 . VB6 έρχεται ως μια αυτόνομη εφαρμογή ή μέρος του Visual Studio 6 . Εάν έχετε την αυτόνομη έκδοση , μπορείτε να κάνετε διπλό κλικ στο εικονίδιο VB6 στην επιφάνεια εργασίας σας ή κάντε κλικ στο κουμπί " Έναρξη", " Όλα τα προγράμματα ", " Microsoft Visual Basic 6 " και στη συνέχεια " Visual Basic 6 " για να ανοίξετε το πρόγραμμα . Για στούντιο , κάντε κλικ στο εικονίδιο για να ανοίξει το Visual Studio 6 . Κάντε κλικ στην καρτέλα " Visual Basic" στην οθόνη υποδοχής και στη συνέχεια να επιλέξετε να ανοίξετε ένα υπάρχον έργο της Visual Basic ή να ξεκινήσετε ένα νέο . 2

Κάντε κλικ στο "Προβολή" και στη συνέχεια " κώδικα " με διακόπτη να κωδικοποιήσει την άποψη . Προσθέστε μια διαδικασία που θα στείλετε ένα email μέσω λογαριασμού Gmail :

" Sub SendGmail ( )

Σετ 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

' αλλάξετε την ακόλουθη γραμμή στο gmail διεύθυνση email σας

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

« χρησιμοποιούν τον κωδικό πρόσβασης που χρησιμοποιείτε για να συνδεθείτε στο λογαριασμό gmail email σας

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

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

emailsFields.Update

με emailMsg

. για = να ' αλλάξει αυτό για τον αποδέκτη (-ες ) του email

. = από myemailaddress@gmail.com «αλλαγή αυτή στη διεύθυνση ηλεκτρονικού ταχυδρομείου σας

. Θέμα = " η αποστολή ενός e-mail με το Gmail και VB6 » « αλλαγή στη γραμμή θέματος σας

. HTMLBody = " Αυτή είναι μια δοκιμή . " ' αλλάξει αυτό στο σώμα του email

Set . Διαμόρφωση = config

. Αποστολή

End με

« εκκαθάριση τα πάντα για την επόμενη email

Set emailMsg = Τίποτα

Set config = Τίποτα

Set emailFields = Τίποτα

End Sub "
εικόνων 3

Αλλάξτε το τμήμα του κώδικα που ζητά ιδιαιτερότητες σας , όπως το Gmail διεύθυνση ηλεκτρονικού ταχυδρομείου και τον κωδικό πρόσβασής σας . Τα στοιχεία που θα πρέπει να αλλάξετε είναι σε σχόλια ? Σημαίνει ότι ξεκινά με μια απόστροφο ( ' )
Η

4 Κάντε κλικ στο εικονίδιο "Αποθήκευση" στη γραμμή εργαλείων για να αποθηκεύσετε τις αλλαγές στο σχέδιο VB6 <. . br >

Η