Hallo an Alle,
wie immer wende ich mich vertrauensvoll an euch und euer Wissen.
Folgendes: ich habe in einem Formular in meiner Datenbank einen Button mit dem ich Emails versenden kann:
Dim olAppOutlook As Outlook.Application
Dim oItem As Outlook.MailItem
Dim strUserName As String, strSigText As String
Dim fso, f, ts
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Set fso = CreateObject(„Scripting.FileSystemObject“)
Set f = fso.GetFile(„C:…\Signatur.txt“)
Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
strSigText = ts.ReadAll
ts.Close
Set olApp = New Outlook.Application
Set oItem = olApp.CreateItem(olMailItem)
With oItem
.To = Mail
.Subject = „…“
.Body = „Sehr geehrte…“ & vbCrLf & vbCrLf & strSigText
.Display
End With
Also, es funktioniert auch alles prima, ausser einem kleinen Schönheitsfehler. Ich habe es nur geschafft meine Signatur als .txt einzubauen. Nun haben wir hier eine toll formattierte Signatur in .htm aber die will das Ding partout nicht einlesen. Hat irgendwer ne Ahnung? Bin für jede Hilfe dankbar!
Grüße aus dem Süden und schon mal Danke vorab
Silke