Verteilerliste erzeugen mit Fax-Adressen

[Astner Klaus]

Hallo zusammen,

ich bräuchte dringend Hilfe. Ich müsste von Delphi aus in Outlook Verteilerlisten erzeugen, welche andere Adressen enthalten. Am liebsten wenn es benutzerdefinierte sind. Nun ist es so, dass ich mit vba-code soweit gekommen bin, eine Verteilerliste zu erzeugen, und benutzerdefinierte Adressen(Allerdings nur Email) hinzuzufügen. Was mit bisher nicht gelungen ist, ist eine Fax-Adresse zu erzeugen. Folgend mein bisheriger Code:

Dim olApp As Outlook.Application
Dim objItem As DistListItem
Dim objMail As MailItem
Dim objRcpnts As Recipients
Dim objRcpnt1 As Recipient
Dim objAddrEntry As AddressEntry

Set olApp = Outlook.Application
Set objMail = olApp.CreateItem(olMailItem)
Set objRcpnts = objMail.Recipients
Set objRcpnt1 = objRcpnts.Add("<TestKunde> [email protected]")

'objRcpnts.Item(1).AddressEntry.Type = FAX
Set objItem = olApp.CreateItem(olDistributionListItem)
objItem.DLName = "TestList"
If objRcpnts.ResolveAll Then
objItem.AddMembers objRcpnts
objItem.Display
AddMember = True
End If

Ich habe herausgefunden, dass man über due AdressEntry.Type zum SMTp kommt, welchen man als benutzerdefiniert und FAX manipulieten müsste. Ich habe es aber nicht hingekriegt, es entsprechend zu formulieren. Bitte wenn jemand schonmal damit experimentiert hat oder Informationen dazu hat. Wäre sehr dankbar.

mfg

Astner Klaus

[Michael Feller]

Hallo,

wir versenden über Outlook in Verbindung mit einem Exchange-Server Informationen als Mail und Fax aus einer Delphi-Anwendung heraus.

Um einen Mailempfänger einzutragen, verwende ich ebenfalls die
o.a. Syntax Recipients.Add('[email protected]').

Um einen Faxempfänger anzugeben, verwende ich die Syntax
Recipients.Add('[MRS:FAXG3/Faxnummer]').
Funktioniert so einwandfrei.

In einer früheren Version wurde eine persönliche Verteilerliste erstellt und diese VL dann als Empfänger angegeben. Leider habe ich den Code nicht mehr. Ich bin mir aber sicher, daß ich die Faxnummern mit der o.a. Syntax in die VL eingegeben habe.

Ich hoffe, das hilft weiter

Gruß Michael Felle

[Astner Klaus]

Hoi Hoi,

danke für die Message. Genau so hat es allerdings nicht gefunzt, aber das hat mir den Anstoss dazu gegeben folgendes zu probieren.

"<test>[FAX:+39 0474 55XXXXX]"

und das funtkioniert 1A.

Danke nochmals

Klau