DevTrain - Attachment versenden mit CDONTS

Wieder einmall erhielt ich ein Frage, die auf Anhieb trivial klingt.
Sende eine Mail mit Attachment!
Schnell war der passende Befehl gefunden. AttachFile hängt ein oder mehrere Dateien an ein CDONTS Objekt an.
Bei der Parameterisierung traten dann doch Probleme auf.

Der erste Parameter gibt die Quelldatei am Webserver an. Diese muss den Full Qualified Pfad beinhalten. Den bekommen Sie z.B. über Server.Mappath. Der Zweite Paramater gibt an wie das File im Mail heissen soll. Der Dritte Parameter ist das verwendete Encoding für das Attachment.
objMail.AttachFile "c:autoexec.bat","Test.txt",1

Sie werden Sich fragen, was bedeutet 1? Zunächst habe ich den Parameter einfach erraten. In so einem Falle ( wie auch bei Cursorn ect) ist 1 immer eine gute Wahl. Das reicht nicht?

Hier eine Auflistung der encodings(Auszug MSDN):

0 CdoEncodingUUencode The attachment is to be in UUEncode format (default).
1 CdoEncodingBase64 The attachment is to be in base 64 format.

Es reicht übrigens auch nur den ersten Paramter anzugeben. Alternativ können Sie auch einen Pointer auf ein IStream Objekt verwenden, was aber nur über C++ und Java möglich ist. Also gleich wieder vergessen.

Ein mehrmaliger Aufruf der Attachfile Methode bewirkt, das mehrere Dateien in einem Mail versendet werden.

Es gibt auch die Methode AttachURL. Im Prinzip das gleiche nur das das Attachment wie ein Link dargestellt wird. das allerdings nur wenn der MailClient will.

Hier der Code aus der MSDN:

Dim myMail
Set myMail = CreateObject("CDONTS.NewMail")

HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">" & NL
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<meta http-equiv=""Content-Type"""
HTML = HTML & "content=""text/html; charset=iso-8859-1"">"
HTML = HTML & "<meta name=""GENERATOR"" content=""Microsoft FrontPage 2.0"">"
HTML = HTML & "<title>Exchange CDO Example</title>"
HTML = HTML & "</head>"
HTML = HTML & "<body bgcolor=""#FFFFFF"">"
HTML = HTML & "Exchange CDO "
HTML = HTML & "Sample<img src=CDO.gif>"
HTML = HTML & ""
HTML = HTML & "CDO for NTS allows an easy way to send mail."
HTML = HTML & "This example shows how the content can be an HTML page"
HTML = HTML & "which allows you to send rich text and inline graphics."
HTML = HTML & "</body>"
HTML = HTML & "</html>"

myMail.AttachURL "D:wwwrootCDO.gif", "CDO.gif"
myMail.From = Example@ppedv.de
myMail.To = Someone@ppedv.de
myMail.Subject = "Beispiel"
myMail.BodyFormat = 0
myMail.MailFormat = 0
myMail.Body = HTML
myMail.Send