emails schicken

[swissgamba]

Habe mal unterstehende code ausprobiert und functioniert.

Frage, Wie kann ich anderes als Text/plain als body einfügen, zb. html datei oder wie heut zu tage vielvorkommend ein Email template? Habe mit thunderbird ein Template gemacht, weiss wo es gespeichert ist aber als emailbody bekomme ich nur HTML code zu sehen. Im internet bis jetzt auch nicht viel gefunden diesbezüglich.

Danke

Code: Alles auswählen

Dim t$ As String

> 15      Dim email As New SmtpClient
> 16
> 17      t$ = File.Load("/home/marty/Test.txt")
> 18
> 19      With email
> 20        .Add("Hello")
> 21        .Add(t$, Text/Plain, "Test.txt")
> 22        .To.Add("xxxxxx@xxxx.xxx")
> 23        .From = "xxxxxx@xxxx.xxx"
> 24        .Subject = "Linux Test"
> 25        .Encrypt = Net.None
> 26        .Port = 25
> 27        .Host = "smtp.xxxx.com"
> 28        .User = "xxxxxxx@xxxx.xxx"
> 29        .Password = "password"
> 30        .Debug = True
> 31     End With
> 32
> 33      email.Send()

[Honsek]

Hallo,

es führt da wohl kein Weg weiter, denn in der Dokumentation steht: The mail body is always sent as the first part. It uses the text/plain;charset=utf-8 mimetype.

Mit freundlichem Gruß

Hans

[tux_]

ein Email template

Ich weisz nicht, was Thunderbird-Templates sind, aber "Template" an sich hoert sich nach einem Konzept an, das vollkommen client-seitig implementiert ist.

es führt da wohl kein Weg weiter, denn in der Dokumentation steht: The mail body is always sent as the first part. It uses the text/plain;charset=utf-8 mimetype.

Wenn ein Vorschlag sinnvoll ist (hier: die Moeglichkeit HTML-Mails zu verschicken), fuehrt immer ein Weg ueber den Bugtracker[0].

Die Alternative-Eigenschaft[1] klingt ansonsten noch nach etwas, das man ausprobieren koennte.

[0] http://gambaswiki.org/bugtracker
[1] http://gambaswiki.org/wiki/comp/gb.net. ... lternative

[Honsek]

Hallo,

ich habe die Dokumentation in der Weise verstanden, dass sich die Alternative-Eigenschaft nur auf den Mime-Typ der Anlage(n) bezieht.
Viel interessanter ist der Umstand, dass viele SMTP-Server aus Sicherheitsgründen nicht mehr den Port 25 nutzen. Dann kommt die Notwendigkeit, sich auch mit dem Thema 'Authentifizierung am SMTP-Server' näher zu befassen. Da hilft die Komponente SMTP-Client nicht weiter! Ich nutze zum Beispiel bei meinem Provider die beiden Ports 995 (POP) und 587 (SMTP), weil das so vorgegeben ist.

Honsek

[tux_]

Viel interessanter ist der Umstand, dass viele SMTP-Server aus Sicherheitsgründen nicht mehr den Port 25 nutzen. Dann kommt die Notwendigkeit, sich auch mit dem Thema 'Authentifizierung am SMTP-Server' näher zu befassen. Da hilft die Komponente SMTP-Client nicht weiter! Ich nutze zum Beispiel bei meinem Provider die beiden Ports 995 (POP) und 587 (SMTP), weil das so vorgegeben ist.

Ich kenne mich mit SMTP nicht aus, aber SmtpClient hat die Eigenschaften Port, Encrypt, User und Password. Damit sollte eine Authentifizierung an verschieden konfigurierten Servern doch zu bewerkstelligen sein?

[swissgamba]

also, hab noch keine losung gefunden aber hab mal geschaut wie es in VB6 geht. Bin jetzt auf die suche nach eine Gambas gleiche code

Code: Alles auswählen

Sub Mail_experiment()
    Dim OutApp As Outlook.Application
    Dim OutMail As Outlook.mailitem
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItemFromTemplate("C:\My\Path\MyTemplate.oft")
    On Error Resume Next
    With OutMail
        .to = "myEmail@aol.com"
        .CC = ""
        .BCC = ""
        .Subject = "This is my Subject line"
        .Send
    End With
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
    End Sub

Versuche jetzt herauszufinden wie ich ein programm starten kann und wie ich in Modzilla Thunderbird das template aufrufen kann...

swissgamba