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, 1467 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)

Mit freundlichen Grüßen
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
Windows 10

Powershell 5 BSOD

(1)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
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 ...

Microsoft Office
Excel VBA: Tranferieren von Werten aus Quelldatei in die Masterdatei mit SVERWEIS (3)

Frage von peter.schroeder zum Thema Microsoft Office ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
gelöst Server erkennt Client nicht wenn er ausserhalb des DHCP Pools liegt (28)

Frage von Mar-west zum Thema LAN, WAN, Wireless ...

Outlook & Mail
Outlook 2010 findet ost datei nicht (18)

Frage von Floh21 zum Thema Outlook & Mail ...

Windows Server
Server 2008R2 startet nicht mehr (Bad Patch 0xa) (18)

Frage von Haures zum Thema Windows Server ...