Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Import aus Outlook2000 nach ACCESS2000
Autor: david-lynch
Datum: 17.06.07 00:51
...und die hier soll SENDER & EMPFÄNGER liefern ?? nur wie einbinden, damit ich die Werte auch laut meiner URSPRÜNGLICHEN FUNKTION in die Felder bekomme??? Attribute VB_Name = "basGetSenderAddy" ' ******************************************************************* ' basGetSenderAddy ' Author: Sue Mosher, Slipstick Systems, sue@slipstick.com ' Date: 8 Sep 2000 ' Ver: 1.0 ' Desc: Demonstrates how to get the From and Reply To addresses ' from an Outlook message ' Unrestricted public use allowed of this code is allowed ' References: Microsoft Outlook 9.0 Object Library ' Microsoft CDO 1.21 Library ' ******************************************************************* Option Explicit Const CdoE_ACCESSDENIED = 80070005 ' ******************************************************************* ' Name: ShowAddresses ' Desc: For currently displayed or selected message, prints both the ' From and Reply To addresses to the Immediate window ' In: Nothing ' Out: Nothing ' ******************************************************************* Sub ShowAddresses() Dim obj As Object Set obj = GetCurrentItem() If obj.Class = olMail Then Debug.Print GetFromAddress(obj) Debug.Print GetReplyToAddress(obj) End If Set obj = Nothing End Sub ' ******************************************************************* ' Name: GetFromAddress ' Desc: Returns the address of the sender of the message ' In: MailItem object ' Out: From address unless an error is encountered. If there is an ' error, it returns "". ' ******************************************************************* Function GetFromAddress(objMsg As Outlook.MailItem) Dim objSession As MAPI.Session Dim objCDOMsg As MAPI.Message Dim strEntryID As String Dim strStoreID As String Dim strAddress As String ' start CDO session Set objSession = CreateObject("MAPI.Session") objSession.Logon , , False, False ' pass message to CDO strEntryID = objMsg.EntryID strStoreID = objMsg.Parent.StoreID Set objCDOMsg = objSession.GetMessage(strEntryID, strStoreID) ' get sender address On Error Resume Next strAddress = objCDOMsg.Sender.Address If Err = CdoE_ACCESSDENIED Then 'handle possible security patch error MsgBox "The Outlook E-mail and CDO Security Patches are " & _ "apparently installed on this machine. " & _ "You must response Yes to the prompt about " & _ "accessing e-mail addresses if you want to " & _ "get the From address.", vbExclamation, _ "GetFromAddress" End If GetFromAddress = strAddress On Error GoTo 0 Set objCDOMsg = Nothing objSession.Logoff Set objSession = Nothing End Function Teil...2 folgt

Import aus Outlook2000 nach ACCESS2000	1.230	david-lynch	16.06.07 01:10
Re: Import aus Outlook2000 nach ACCESS2000	812	david-lynch	17.06.07 00:48
Re: Import aus Outlook2000 nach ACCESS2000	761	david-lynch	17.06.07 00:51
Re: Import aus Outlook2000 nach ACCESS2000	756	david-lynch	17.06.07 00:52

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen