Verwenden Sie VB6, um Programme zum Senden von E-Mails zu schreiben. Es stehen verschiedene E-Mail-Komponenten zur Auswahl, z. B. MAPIMessages, CDONTS (NTSCollaborationDataObjects), die in IIS4.0 enthalten sind, und E-Mail-Software, die von vielen Drittherstellern entwickelt wurde. In diesem Artikel wird erläutert, wie Sie mit CDONTS ein Mailprogramm unter VB entwickeln.
1. Bestätigen Sie, dass der SMTP-Server installiert ist
Zunächst müssen Sie bestätigen, dass der SMTP-Server auf dem IIS-Server installiert ist. Dies ist die Option, die bei der Installation von OptionPack standardmäßig installiert wird. Wenn der SMTP-Server installiert wurde, befindet sich im System32-Verzeichnis eine Datei mit dem Namen cdonts.dll.
2. Das einfachste E-Mail-Versandprogramm
Das Folgende ist das einfachste E-Mail-Versandprogramm, das eine E-Mail mit dem Titel „Titel“ und dem Inhalt „Hallo“ von [email protected] an [email protected] sendet:
PRivateSubcmdSendMail_Click()
DimobjmailasObject
SetobjMail=CreateObject("CDFONTS.DLL")
ObjMail.Send"[email protected]", "[email protected]", "Titel", "Hallo"
SetobjMail=nichts
EndSub
3. Senden Sie E-Mail-Anhänge
Wenn es eine angehängte Datei gibt, die zusammen mit der E-Mail gesendet werden muss, können Sie die AttachFile-Methode von CDONTS verwenden:
PrivateSubcmdSendMail_Click()
DimobjMailasObject
SetobjMail=CreateObject("CDFONTS.DLL")
MitObjMail
.From="[email protected]"
.To="[email protected]"
.Subject="Titel"
.Body="Hallo"
.AttachFile"c:/document/sample.doc", "sample.doc"
.Schicken
EndWith
SetobjMail=nichts
EndSub
4. Häufig verwendete Eigenschaften und Methoden von CDONTS-Komponenten
Häufig verwendete Eigenschaften und Methoden von CDONTS-Komponenten sind unten aufgeführt:
Eigentum:
Version: Gibt die Versionsnummer der CDONTS-Komponente zurück
MailFormat: E-Mail-Format, 1-normaler Texttyp; 0-MIME-Typ
Cc: Legen Sie eine oder mehrere E-Mail-Adressen als Referenz fest
Von: Die Adresse des E-Mail-Absenders
An: Die Adresse des E-Mail-Empfängers
Betreff: Titel
Körper: Inhalt
BodyFormat: Inhaltsformat, 1-normaler Text; 0-Hypertext
Verfahren:
AttachFile: Hängen Sie eine Datei an
AttachURL: Hängen Sie eine Adresse an
Senden: E-Mail senden
5.Senden Sie eine E-Mail im Hypertext-Format
Sie haben sicher schon viele E-Mails im Hypertext-Format gesehen, die nicht nur Bilder und Töne enthalten, sondern auch Animationen einbetten können. Wenn Sie Ihrem Freund eine solche E-Mail senden, wird er oder sie auf jeden Fall eine unerwartete Überraschung erleben, da dies mit herkömmlichen E-Mail-Versandprogrammen nicht möglich ist. Im Folgenden wird die CDONTS-Komponente verwendet, um eine E-Mail im HTML-Format zu senden, die ein Bild mit dem Namen „sample.gif“ enthält. Das Programm lautet wie folgt:
PrivateSubcmdSendMail_Click()
DimobjMailasObject
SetobjMail=CreateObject("CDFONTS.DLL")
DimstrHTMLasString
StrHTML="〈html〉〈head〉"
StrHTML=StrHTML "〈title〉Email〈/title〉〈/head〉 im Hypertextformat
StrHTML=StrHTML „〈body〉〈p〉〈strong〉Beispiel für den E-Mail-Versand mit CDONTS“
StrHTML=StrHTML "〈imgsrc=sample.gif〉〈/strong〉〈/p〉"
StrHTML=StrHTML „〈p〉Das obige Beispiel hat das eingebettete Bild „sample.gif〈/p〉“
StrHTML=StrHTML "〈/body〉〈/html〉"
MitObjMail
.From="[email protected]"
.To="[email protected]"
.Subject="Titel"
.Body=strHTML
.AttachURL"c:/mydata/sample.gif","sample.gif"
.BodyFormat=0
.EmailFormat=0
.Schicken
EndWith
SetobjMail=nichts
EndSub
An dieser Stelle glaube ich, dass Sie einen Fehler in der SMTP-E-Mail-Verarbeitung entdeckt haben müssen. Der SMTP-Server empfängt Ihre Ausgabenachricht, überprüft jedoch nicht den Namen und die Adresse des Absenders. Dies wird durch den asynchronen Sendemechanismus von SMTP bestimmt, aber jemand kann ihn mit Hintergedanken verwenden, um sich als jemand anderes auszugeben und E-Mails zu versenden! In diesem Artikel wird dringend davon abgeraten, es einfach zu versuchen. Sobald Ihr ISP von Ihrem Verhalten erfährt, wird Ihr Konto höchstwahrscheinlich sofort gelöscht. ->