Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Import aus Outlook2000 nach ACCESS2000
Autor: david-lynch
Datum: 17.06.07 00:52
Teil 2.... ' ******************************************************************* ' Name: GetReplyToAddress ' Desc: Returns the reply address of the sender of the message ' In: MailItem object ' Out: Reply To address unless an error is encountered. If there is an ' error, it returns "". ' ******************************************************************* Function GetReplyToAddress(objMsg As Outlook.MailItem) Dim objReply As Outlook.MailItem Dim objRecip As Outlook.Recipient Dim strAddress As String Set objReply = objMsg.Reply On Error Resume Next Set objRecip = objReply.Recipients.Item(1) If Err = 0 Then ' address will be in Name or Address depending ' on sending application and type of address strAddress = objRecip.Address If strAddress = "" Then strAddress = objRecip.Name End If ElseIf Err = 287 Then strAddress = "" MsgBox "The Outlook E-mail Security Patch is " & _ "apparently installed on this machine. " & _ "You must response Yes to the prompt about " & _ "accessing e-mail addresses if you want to " & _ "get the Reply To address.", vbExclamation, _ "GetReplyToAddress" End If GetReplyToAddress = strAddress On Error GoTo 0 Set objRecip = Nothing Set objReply = Nothing End Function ' ******************************************************************* ' Name: GetCurrentItem ' Desc: Returns the Outlook item either currently displayed or, if ' the active window shows a folder, the first selected item ' In: Nothing ' Out: Outlook item ' ******************************************************************* Function GetCurrentItem() As Object Dim objApp As Application Dim objSel As Outlook.Selection Dim objItem As Object Set objApp = CreateObject("Outlook.Application") Select Case objApp.ActiveWindow.Class Case olExplorer Set objSel = objApp.ActiveExplorer.Selection If objSel.Count > 0 Then Set objItem = objSel.Item(1) End If Case olInspector Set objItem = objApp.ActiveInspector.CurrentItem Case Else ' can't handle any other kind of window End Select Set GetCurrentItem = objItem Set objItem = Nothing Set objSel = Nothing Set objApp = Nothing End Function

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	760	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