Tobit per VBA steuern

Hallo und Guten Morgen,

aufgrund der Einführung eines Corporate Identitys müssen unsere E-Mails ein Einheitliches Aussehen haben.
Das gleiche will ich auch per VBA schaffen, allerdings machen mir dann die @@-Befehle einen Strich durch die Rechnung.

Public Function fkt_EMail(str_Empfaenger As String, str_Betreff As String, str_Datei As String)


	' WICHTIG: Verweis auf beide DvISE Bibliotheken laden


	Dim obj_App As DvApi32.IApplication
	Dim obj_Account As DvApi32.Account
	Dim obj_Archive As DvApi32.Archive
	Dim obj_Mail As DvApi32.MailItem
	Dim obj_Anhang As DvApi32.Attachment

	Dim str_Text As String

	Set obj_App = CreateObject("DVOBJAPILib.DvISEAPI")                                          	' Initialisierung von Tobit
	Set obj_Account = obj_App.Logon("", "", "", "", "", "AUTH")                                 	' Benutzerdaten LEER LASSEN
	Set obj_Archive = obj_Account.GetSpecialArchive(DvApi32.DvArchiveTypes.DvArchivePersonalOut)	' Welches Verzeichnis als Basis
	Set obj_Mail = obj_Archive.NewItem(DvApi32.DvItemTypes.DvEMailItem)                         	' Definition des Mail-Objekts

	obj_Mail.Recipients.Add (str_Empfaenger)

	obj_Mail.Subject = str_Betreff

	str_Text = "<font face='Verdana' size=2>Hallo!<p>" & _
            	"Hier die Kontrollliste " & str_Betreff & "<br>" & _
            	"<a href='file://" & str_Datei & "'>" & str_Datei & "</a>!<p>" & _
            	"___________________________" & "<br>" & _
            	"@@GET BEN_NAME@@</font><br>" & _
            	"<font face='Verdana' size=1>@@GET BEN_TELEFON@@</font><p>" & _
            	"<font face='Verdana' size=2>" & Format(Date, "DD.MM.YYYY") & "</font><p>" & _
            	"***Diese E-Mail wurde automatisch generiert!***"

	obj_Mail.BodyText.HTMLText = str_Text

	obj_Mail.Send

	Set obj_App = Nothing
	Set obj_Account = Nothing
	Set obj_Archive = Nothing
	Set obj_Mail = Nothing
	Set obj_Anhang = Nothing


End Function

Kann mir da einer Helfen, dass die @@-Befehle umgesetzt werden?

Danke schön!!

Gruß
Axel

Zitat von axeos

Kann mir da einer Helfen, dass die @@-Befehle umgesetzt werden?

Was genau möchtest Du denn erreichen? Dass dort Name
und Telefon in Klarschrift steht, oder was genau ist das Ziel?

Hallo PeterLustig,

genau das ist mein Ziel. Es bringt ja keinem etwas, wenn er eine Mail erhält mit @@GET BEN_NAME@@ sowie im Anhang.

Gruß
Axel

Hi Axel.

Das haut so auch nicht hin. Ich habe hier gerade keine API32 zur Hand,
aber ich bin gleich oben und schaue mal nach. Melde mich dann wieder...

Ersetze die @@ Variablen durch

obj_Account.Account.User.Name
obj_Account.Account.User.PhoneNumber

Meld Dich wieder.

Hallo Peter,

vielen Dank für den Tipp, ich komme der Sache näher aber noch nicht zum Ziel.
Das Problem ist, dass die Inhalte variieren, also ich meine von der API und den @@-Befehlen

Ich habe mal zwei Grafiken angehängt, die erste zeigt das was ich haben will, allerdings als Plaintext und die zweite ist das was ich über die API bekomme.
Wie bekomme ich also das zweite Ergebniss so hin wie das erste nur in HTML-formatiert

Gruß
Axel

Gibt es hierzu vielleicht noch Vorschläge, denn ich bin mit dem Latein am Ende.

Kurze Nebenfrage: Hat einer eine funktionierende Api-Hilfe. Meine CHM-Datei zeigt mir immer nur Fehler an.

Danke

Moin Moin,

also das mit dem Registry Eintrag hat nicht geholfen. Bei mir gab es den Schlüssel "ItssRestrictions" gar nicht.

Nichts desto trotz ist das schon irgend wie komisch, dass das mit den Objekten nicht so hinhaut. Meine Vermutung ist, dass die Informationen für das Object obj_Account nicht von Tobit kommt, sondern vom Active Directory. Denn ich gebe beim Logon ja nichts an, wie ich mich beim Tobit-Server anmelden. Ist die Überlegung vielleicht falsch???

VG
Axel