Top-Themen

Aktuelle Themen (A bis Z)

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

Mitglied: chef1568

chef1568 (Level 1) - Jetzt verbinden

08.09.2014, aktualisiert 11:07 Uhr, 1714 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 ..
Ähnliche Inhalte
Microsoft Office

Importieren von excel daten in outlook vba

gelöst Frage von BgervaisMicrosoft Office10 Kommentare

Hallo, mein Deutsch ist nicht so gut, aber ich versuche es trotzdem. (Excel und Outlook - Deutsch Sprache) ich ...

VB for Applications

Mit Excel VBA Outlook Posteingang nach Kennzeichnungsstatus auslesen

gelöst Frage von hellasVB for Applications14 Kommentare

Hallo, ich möchte gerne in einer Excel Liste alle Emails aus meinem Posteingang haben, die zur Nachverfolgung gekennzeichnet sind. ...

Outlook & Mail

Importieren von excel daten in outlook vba - Teil 2

Frage von BgervaisOutlook & Mail5 Kommentare

VB for Applications

VBA aus Excel Daten in Outlook-Kalender anlegen und löschen

Frage von tomakagrottiVB for Applications3 Kommentare

Hallo zusammen, ich habe vor eine Excel Tabelle in folgender Form zu erstellen: Es sollen Angebote für einen bestimmten ...

Neue Wissensbeiträge
Humor (lol)
IoT-Gefahr: Smartes Aquarium leckt!
Information von Lochkartenstanzer vor 2 TagenHumor (lol)3 Kommentare

Moin, Die IoT-Manie hat weitere Opfer gefunden. Ein Casino-Leck durch ein smartes Aquarium: Allerdings haben sie kein Wasser, sondern ...

Router & Routing

Alte Fritzbox 7270 mit VPN und SIP-Telefonie hinter O2 Homebox 6641 als "Modem"

Erfahrungsbericht von the-buccaneer vor 3 TagenRouter & Routing3 Kommentare

Nun war es soweit: Auch O2 hat mich mit VOIP zwangsbeglückt. Heute am Privatanschluss, in 2 Wochen ist das ...

Sicherheit

Ungepatchte Remote Code Execution-Lücke in LG NAS

Information von kgborn vor 3 TagenSicherheit

Nutzt wer LG NAS-Einheiten? In den NAS-Einheiten der LG Network Storage-Einheiten gibt es eine sehr unschöne Schwachstelle, die einen ...

Windows Update

Neue Version KB4099950 NIC Einstellungen gehen verloren

Information von sabines vor 3 TagenWindows Update2 Kommentare

Es ist eine neue Version des KB4099950 verfügbar, die das Problem mit den verlorenen Netzwerkeinstellungen lösen soll. Das Datum ...

Heiß diskutierte Inhalte
Netzwerkmanagement
Netzwerkmanagment im Haus mit Switch, Panel und pfsense
gelöst Frage von CorraggiounoNetzwerkmanagement19 Kommentare

hi zusammen, wir sind gerade dabei das ganze Haus bzw. die einzelnen Zimmer mit netzwerkdosen zu versorgen. Vom Keller ...

Netzwerkgrundlagen
VLAN - Offene Fragen
Frage von KnettenbrechNetzwerkgrundlagen17 Kommentare

Hallo zusammen, ich befasse mich derzeit mit dem Thema VLAN. Hierzu habe ich schon einige Guides gelesen, einschließlich des ...

Google Android
Empfehlung: Android Ortungsapp
gelöst Frage von certifiedit.netGoogle Android13 Kommentare

Guten Morgen, grundsätzlich vorweg, ich wollte mich eben schlau machen, bzgl einer Ortungsapp, welche Androidbasiert einem anderen Androidsmartphone mitteilt, ...

Router & Routing
VPN hinter zweiter Fritzbox nutzen im Nachbarhaus
gelöst Frage von georg2204Router & Routing11 Kommentare

Hallo zusammen, ich blicke hier leider nicht mehr so ganz durch. In Haus 1 steht eine Fritzbox 7390, diese ...