collapse

* Benutzer Info

 
 
Willkommen Gast. Bitte einloggen oder registrieren. Haben Sie Ihre Aktivierungs E-Mail übersehen?

* Wer ist Online

  • Punkt Gäste: 22
  • Punkt Versteckte: 0
  • Punkt Mitglieder: 0

Es sind keine Mitglieder online.

* Forenstatistik

  • stats Mitglieder insgesamt: 13698
  • stats Beiträge insgesamt: 62176
  • stats Themen insgesamt: 8470
  • stats Kategorien insgesamt: 5
  • stats Boards insgesamt: 16
  • stats Am meisten online: 415

Autor Thema: Bitte um Hilfe bei Outlook VBA  (Gelesen 482 mal)

Offline datekk

  • Access-Meister
  • ***
  • Beiträge: 670
Bitte um Hilfe bei Outlook VBA
« am: Mai 16, 2017, 22:12:34 »
Hi Leute,

ich scheine ein Problem mit der Office 365 pro Plus Version zu haben. Irgendwie funktioniert plötzlich mein VBA Code im Outlook nicht mehr.
Sub AccessKontaktOeffnen()

    Dim Selektion As Selection
    Dim SelektierteMail As Outlook.MailItem
    Set Selektion = Application.ActiveExplorer.Selection
    Dim MailAddress As String
   
    For Each SelektierteMail In Selektion

        Debug.Print SelektierteMail.HTMLBody
        Debug.Print GetSMTPAddressForRecipients(SelektierteMail)
        Debug.Print SelektierteMail.SenderEmailAddress
        MailAddress = SelektierteMail.SenderEmailAddress


    Next
   
   
    DoCmd.OpenForm "frm_Geschäftskontakt", , , "EmailAddress1='" & MailAddress & "'"
   
 
End Sub


Bekomme die Fehlermeldung: Laufzeitfehler 13: Typen unverträglich. Markiert ist die Zeile: "For Each SelektierteMail In Selektion".....

Bei einer "normalen" Installation mit Installationsdatenträger für Office 2016 habe ich keine Probleme mit o.g. Code. Die Probleme treten immer nur mit diesen Click-to-Run Installationen auf.......  >:(

Weiß jemand Rat? Ich habe Office jetzt schon unzählige Male deinstalliert, von Version 1703 auf 1702 gedowngraded... Ich habe keinen weiteren Ansatz. Woran kann es liegen, dass der Code von heut auf morgen nicht mehr geht?
 

Offline DF6GL

  • Global Moderator
  • Access-Oberguru
  • *****
  • Beiträge: 22988
Re: Bitte um Hilfe bei Outlook VBA
« Antwort #1 am: Mai 17, 2017, 07:48:30 »
Hallo,

vielleicht liegt es ja hier:

Call GetSMTPAddressForRecipients(SelektierteMail)

Offline datekk

  • Access-Meister
  • ***
  • Beiträge: 670
Re: Bitte um Hilfe bei Outlook VBA
« Antwort #2 am: Mai 17, 2017, 08:07:54 »
Nein, der Fehler tritt 1:1 auch in anderen Modulen auf, die diese Zeile nicht besitzen. Auf anderen Rechnern läuft der Code auch ohne Probleme... Ich nehme an, meine Office Installation hat "ne Macke"... Bloß ich bekomme es nicht hin, dies zu orten und zu reparieren.
 

Offline datekk

  • Access-Meister
  • ***
  • Beiträge: 670
Re: Bitte um Hilfe bei Outlook VBA
« Antwort #3 am: Mai 17, 2017, 08:27:08 »
Gelöst  8)

Der Code muss wie folgt angepasst werden und es läuft wieder:

Dim OlExpl As Outlook.Explorer
Set OlExpl = Application.ActiveExplorer

Set Selektion = OlExpl.Selection


Seltsam ist nur, dass der alte Code von jetzt auf gleich nicht mehr ging, auf anderen Rechnern aber noch läuft.... Danke Microsoft für die 3 grauen Haare mehr auf meinem Kopf....  :o
 

Offline PhilS

  • Administrator
  • Access-Profi
  • *****
  • Beiträge: 229
    • Tipps zu Access, VBA, SQL und Co.
Re: Bitte um Hilfe bei Outlook VBA
« Antwort #4 am: Mai 17, 2017, 08:45:25 »
Soweit aus dem Codeausschnitt zu sehen ist, verlässt du dich darauf, dass im ActiveExplorer immer nur MailItems selektiert sind. Wenn das mal nicht der Fall ist, würde es zu dem beschriebenen Fehler kommen.

Das ist aber vermutlich nicht die Ursache für das Problem. Warum bei einer Click-to-Run-Installation offenbar manche Typen nicht korrekt registriert werden, kann ich dir nicht beantworten.
Evtl. lässt sich das Problem umgehen, wenn du LateBinding verwendest und SelektierteMail as Object deklarierst.

Offline datekk

  • Access-Meister
  • ***
  • Beiträge: 670
Re: Bitte um Hilfe bei Outlook VBA
« Antwort #5 am: Mai 17, 2017, 09:26:42 »
Das Problem ist gelöst. Siehe oben. Und ja, ich habe nur MailItems selektiert.

Danke für Eure Antworten.