Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Excel VBA Emailzugriff Berechtigunganfrage von Outlook

Frage Entwicklung VB for Applications

Mitglied: chef1568

chef1568 (Level 1) - Jetzt verbinden

08.09.2014, aktualisiert 11:07 Uhr, 1490 Aufrufe, 8 Kommentare

Hallo,

ich habe ein kleines VBA-Script geschrieben, dass mir den HTML-Inhalt einer Email ausliest und in ein Array schreibt.
Leider bekomme ich bei jedem Zugriff auf den Emailinhalt eine Anfrage von Outlook wo ich manuell die Zugriffsberechtigung erteilen muss - wie kann ich das umgehen?

01.
Option Explicit 
02.
Global OLF As Outlook.MAPIFolder 
03.
Global arrEmail(), z As Long                        'Array Emails: [Variable](ID, Betreff, Zeitstempel) 
04.
Global EmailSelect As Integer                       'ausgewählte Email 
05.
 
06.
Sub email_auslesen() 
07.
'################################################################### 
08.
'Mit diesem Programm wird der Inhalt einer Email in Excel importiert 
09.
'################################################################### 
10.
 
11.
Dim OLF As Outlook.MAPIFolder 
12.
Dim CountInbox As Integer                           'Anzahl der Elemente Posteingang 
13.
Dim i As Integer                                    'Zähler Schleife Posteingeng auslesen 
14.
Dim Suchtxt As String                               'Identifier der Email 
15.
Dim IDEmailSelect As Integer                        'ID der ausgewählten Email 
16.
Dim arrImport(), y As Long                          'Importarray der Excelliste aus der Email 
17.
 
18.
 
19.
'Defaultwerte 
20.
i = 0: z = 0 
21.
Suchtxt = "Status Fahrzeuge, offene Punkte" 
22.
 
23.
'Globale Fehlerbehandlung 
24.
On Error Resume Next 
25.
 
26.
 
27.
'Setzen der Variable als Outlook Application; Zugriff auf Outlook 
28.
Set OLF = GetObject("", "Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(olFolderInbox) 
29.
 
30.
 
31.
'Anzahl Emails im POSTEINGANG 
32.
CountInbox = OLF.Items.Count 
33.
 
34.
 
35.
'Emailarray befüllen 
36.
    For i = 1 To CountInbox 
37.
        With OLF.Items(i) 
38.
            If InStr(1, .Subject, Suchtxt) > 0 Then  'Rückgabewert 0 = false 
39.
                ReDim Preserve arrEmail(0 To CountInbox, 0 To 2) 
40.
                arrEmail(z, 0) = i                  'ID 
41.
                arrEmail(z, 1) = .Subject           'Betreff 
42.
                arrEmail(z, 2) = .ReceivedTime      'Empfangen am Datum 
43.
                z = z + 1 
44.
            End If 
45.
        End With 
46.
    Next 
47.
 
48.
 
49.
'Öffne Popup mit Emailauswahl 
50.
Emailauswahl.Show 
51.
'Antwort Email-ID 
52.
IDEmailSelect = arrEmail(EmailSelect, 0) 
53.
 
54.
 
55.
'Email selekiert 
56.
    With OLF.Items(IDEmailSelect) 
57.
     
58.
        '#####################       
59.
        y = 5 
60.
        ReDim Preserve arrImport(0 To y, 0 To 2) 
61.
        arrImport(1, 2) = .HTMLBody                 'HTML 
62.
 
63.
        '##################### 
64.
         
65.
    End With 
66.
 
67.
'Durchlauf abgeschlossen 
68.
Set OLF = Nothing 
69.
Application.StatusBar = False           'Statuszeile ausschalten 
70.
Erase arrEmail() 
71.
End Sub
gruß feder
Mitglied: chef1568
08.09.2014, aktualisiert um 11:29 Uhr
Hallo Uwe,


Zitat von colinardo:

Hallo gluehbirne, Willkommen im Forum!
Ab Outlook 2007 kannst du die Warnung im Outlook-Sicherheitscenter deaktivieren:
Alternativ sende die Mails via CDO-ComObject ganz ohne Outlook aus Excel heraus.

Grüße Uwe

Zitat von gluehbirne:

Ich kann in unserem Outlook die Sicherheitseinstellungen nicht ändern - offensichtlich per Policy bzw. Admin hat gesperrt.


Das selbe Problem habe ich auch.
Bitte warten ..
Mitglied: colinardo
08.09.2014, aktualisiert um 11:26 Uhr
Zitat von chef1568:
Ich kann in unserem Outlook die Sicherheitseinstellungen nicht ändern - offensichtlich per Policy bzw. Admin hat gesperrt. Das selbe Problem habe ich auch.
Dazu musst du Outlook als Admin starten (Rechtsklick als Administrator starten) dann kannst du die Einstellung im Dialog ändern. Wenn du keine Admin-Rechte besitzt kontaktiere euren Administrator!
Bitte warten ..
Mitglied: chef1568
08.09.2014 um 11:28 Uhr
Nein, das geht leider auch nicht.
Eine Andere Lösung gibt es hier nicht? z.B. per VBA gewisse Rechte zuweisen etc? (Der User hat Adminrechte)

mfg
Bitte warten ..
Mitglied: colinardo
08.09.2014, aktualisiert um 11:32 Uhr
Zitat von chef1568:
Nein, das geht leider auch nicht.
Eine Andere Lösung gibt es hier nicht? z.B. per VBA gewisse Rechte zuweisen etc? (Der User hat Adminrechte)
Wenn bei euch diese Einstellung via Domain-Policy definiert ist, dann nein. Dann bleibt nur stattdessen Redemption zu nutzen.

Grüße Uwe
Bitte warten ..
Mitglied: mupan7
08.09.2014 um 11:46 Uhr
Hängt hinter dem Outlook ein Exchange? Ich hab mit Exchange auch schon erfolgreich von VBA (Access) aus gesprochen, hatte dann mit Outlook und dessen Sicherheitsplacebos nichts mehr zu tun.
Bitte warten ..
Mitglied: chef1568
08.09.2014 um 11:56 Uhr
Zitat von mupan7:

Hängt hinter dem Outlook ein Exchange? Ich hab mit Exchange auch schon erfolgreich von VBA (Access) aus gesprochen, hatte
dann mit Outlook und dessen Sicherheitsplacebos nichts mehr zu tun.

Ja, tut es
Wie hast du das gleöst bekommen?

gruß feder
Bitte warten ..
Mitglied: SachsenHessi
08.09.2014, aktualisiert um 12:14 Uhr
Hallo,
der Zugriff von außen (ich nehme an mit Excel-VBA) auf Outlook ist nicht ganz trivial (zumal glaube ich CDO zukünftig nicht mehr unterstützt werden soll).
Nutze am besten
http://www.mapilab.com/outlook/security/
Das Teil löst einige Probleme im Bereich Zugriff auf Outlook

Aber: wenn Du es als Outlook-AddIn mit VSTO machst, hast Du diese Problem nicht. (Also anderen Weg, von Outlook aus in Exceldatei schreiben)
Gruss
Frank
Bitte warten ..
Neuester Wissensbeitrag
Ähnliche Inhalte
Microsoft Office
gelöst Excel VBA - Inhalte und Dateiname von txt-Dateien automatisch in Excel importieren (2)

Frage von Booster07 zum Thema Microsoft Office ...

VB for Applications
Excel VBA Sortierung von Daten (5)

Frage von easy4breezy zum Thema VB for Applications ...

VB for Applications
gelöst Excel VBA Eine oder mehrere Zellen Verschieben (2)

Frage von batchnewbie zum Thema VB for Applications ...

Heiß diskutierte Inhalte
DSL, VDSL
gelöst DSL 200m verlängern (15)

Frage von Angela44 zum Thema DSL, VDSL ...

LAN, WAN, Wireless
Per Script auf UniFi-controller zugreifen und WPA2-Key ändern (11)

Frage von Winfried-HH zum Thema LAN, WAN, Wireless ...

Windows Server
SBS 2011 Standard virtualisieren (11)

Frage von HeinrichM zum Thema Windows Server ...

Exchange Server
gelöst DHCP Sever MS Server 2012 Problem (10)

Frage von Florian86 zum Thema Exchange Server ...