Re: Daten aus word Dialogfeld in Outlook Kontakte

From: Mark Wipfler (Mark.Wipfler_at_ingenieurgruppe-bauen.de)
Date: 04/02/04 

Date: Fri, 2 Apr 2004 07:21:15 +0200

Danke mal war ein guter Tip,

muß ich dafür die Objekt Bibliothek für Outlook 10 einbinden.

Das Makro soll aber auch auf anderen Rechner mit Outlook 2000 funktionieren.

Hier mal mein Code:

Private Sub UserForm_Initialize()

  Set objOutlook = CreateObject("Outlook.Application")

  On Error Resume Next
  Application.StatusBar = "Moment bitte, Outlook-Kontakte werden gelesen..."
  Set objOutlook = GetObject(, "Outlook.Application")
  If Err <> 0 Or TypeName(objOutlook) = "Nothing" Then
    On Error GoTo OutlErr
    Err = 0
    Set objOutlook = CreateObject("Outlook.Application")
  End If

  Erase arrItemIDs()
  Set objNamespace = objOutlook.GetNamespace("MAPI")
  Set objFolder = objNamespace.GetDefaultFolder(10)
  Kontaktordner_aktualisieren

      Dim Cnt As Long, objTemp As Object

      Set objItems = objFolder.items

OutlEnde:
  Application.StatusBar = ""
  DoEvents
  Exit Sub

OutlErr:
  Beep
  MsgBox "Zugriff auf Outlook ist nicht möglich: " + Err.Description,
vbOKOnly + vbCritical, "!!! Problem !!!"
  Resume OutlEnde

End Sub

Private Sub Exportieren_Click()
  Dim strAdr As String

  Debug.Print objFolder
  Set myItem = objFolder.items.Add

  strAdr = ""
  With myItem
    .Title = us_startdialog.cob_kbrf_emp_anrd '"TEST"
    .companyName = us_startdialog.tb_kbrf_emp_nv
    .BusinessAddressStreet = us_startdialog.tb_kbrf_emp_sh
    .BusinessAddressPostalCode = us_startdialog.tb_kbrf_emp_plz
    .BusinessAddressCity = us_startdialog.tb_kbrf_emp_ort
    .FirstName = us_startdialog.tb_kbrf_emp_zhd

  End With
  myItem.Display
  Application.Selection = strAdr
  Unload Me

End Sub

Private Sub btnCancel_Click()

  Unload Me

End Sub

Private Sub Kontakteordner_Click()
Dim tmpFolder As Object

  On Error Resume Next
  Set tmpFolder = objNamespace.PickFolder
  ActiveWindow.Activate
  DoEvents
  If Err <> 0 Or TypeName(tmpFolder) = "Nothing" Then
    Beep
    Exit Sub
  End If

  If tmpFolder.DefaultItemType <> 2 Then
      MsgBox "Der Ordner »" + tmpFolder.Name + "« ist kein Kontakte-Odner!",
vbOKOnly + vbCritical, "!!! Problem !!!"
      Exit Sub
  End If

  Set objFolder = tmpFolder
  Kontaktordner_aktualisieren
End Sub

Hab ihn aus verschiedenen Quellen und dann etwas überarbeitet.

Gruß MArk

"Michael Bauer" <mib00@t-online.de> schrieb im Newsbeitrag
news:uDaJNT6FEHA.2600@TK2MSFTNGP12.phx.gbl...
> Hallo Mark,
>
> > werden. Dabei sind auch Adressdaten die ich bei bedarf auch aus
> Outlook per
> > VBA importieren kann. Nun würde ich mir auch gerne die Möglichkeit
> schaffen
> > Adressdaten aus dem Dialogfeld in Outlook als Neuer Kontakt eintragen.
>
> wenn Du die Daten per VBA aus Outlook lesen kannst, dann hast Du doch
> schon alles. Dafür mußt Du ja auf die Items irgendeines Ordners
> zugreifen. Und für eben diese Items-Liste führst Du die Add-Methode aus.
>
> Wenn Dir die Standardordner reichen, kannst Du auch über
> Application.CreateItem gehen.
>
> --
> Viele Grüße
> Michael Bauer
>

Relevant Pages

  • Re: Sekten, Selbsthilfegruppen
    ... AA-Gruppe mitzumachen - auch wenn sie Atheisten sind und nicht an Höhere ... Die haben sich mir mal vorgestellt und waren ... ich auch nicht viel. ...
    (de.sci.medizin.psychiatrie)
  • Re: COM Addin Problem after Update to Outlook 2003
    ... It worked with Outlook 2000 and XP, ... Only the Addin wasn't loaded. ... > Private Sub IDTExtensibility2_OnAddInsUpdateAs Variant) ... > On Error GoTo ErrHandler ...
    (microsoft.public.outlook)
  • Re: COM Addin Problem after Update to Outlook 2003
    ... It worked with Outlook 2000 and XP, ... Only the Addin wasn't loaded. ... > Private Sub IDTExtensibility2_OnAddInsUpdateAs Variant) ... > On Error GoTo ErrHandler ...
    (microsoft.public.outlook.program_addins)
  • Re: VBA shutdown error Outlook
    ... In Outlook VBA there is an intrinsic Application object. ... Dim oExpl As Outlook Explorer ... > Public myFlag As Boolean ... > Exit Sub ...
    (microsoft.public.office.developer.outlook.vba)
  • Re: Unable to add "X-Header" to a mail that is being sent...
    ... OutlookSpy - Outlook, CDO ... MsgBox "Initialize Event Handlers successful" ... Private Sub Command1_Click ... ChangeHeader() from my ItemSend event handler, ...
    (microsoft.public.outlook.program_vba)