Home-›Foren-›Outlook-›Outlook VBA-›Makro oder Virus?
- This topic has 0 Antworten, 1 Stimme, and was last updated 15:53 um 17. April 2008 by Sauber2.
- AutorBeitrag
- 17. April 2008 um 15:53 #45522Sauber2Participant
Hallo,
ich bekomme folgende Fehlermeldung wenn ich unten angehängtes Makro ausführe:
Ein Programm versucht, auf Ihre in Outlook gespeicherten E-mailAdressen zuzugreifen.
Möchten Sie das zulassen?
Falls dies unerwartet geschieht, könnte es sich um einen Virus handeln. Gewähren Sie in diesem Fall keinen Zugriff.
Wie kann ich diese Fehlermeldung vermeiden? Ich gehe davon aus, dass gar kein Virus vorliegt?
Das Marko speichert mir Attachements in E:Temp, löscht die Anhänge und schreibt einen Verweiss in das mail.
Makro:
Sub AnhaengeSpeichern()\’Festlegen der Parameter
Dim myOrt As String
Dim myOlApp As New Outlook.Application
Dim myOlExp As Outlook.Explorer
Dim myOlSel As Outlook.Selection
Dim myteils, myteil, myAnhänge, myAnhang As Object
\’Hier wird nach dem Ort gefragt wo gespeichert werden soll, _
\’wenn Sie den Pfad ändern. Muss dieser vorher schon erstellt sein
myOrt = InputBox(\”Speicherort\”, \”Anhänge Speichern unter: \”, \”E:Temp\”)
On Error Resume Next
\’arbeitet die einzelnen Nachrichten ab
Set myOlExp = myOlApp.ActiveExplorer
Set myOlSel = myOlExp.Selection
\’für alle Teile…
For Each myteil In myOlSel
\’Anhänge festlegen
Set myAnhänge = myteil.Attachments
\’wenn welche dar sind, dann
If myAnhänge.Count > 0 Then
\’fügt einen Hinweis in die Email ein
myteil.Body = myteil.Body & vbCrLf & _
\”Entfernte Anhänge:\” & vbCrLf\’und für alle Anhänge…
For i = 1 To myAnhänge.Count
\’nun werden Sie am Speicherort abgelegt
myAnhänge(i).SaveAsFile myOrt & _
myAnhänge(i).DisplayName\’hier wird Name und der Ort in der Nachricht eingetragen
myteil.Body = myteil.Body & _
\”Datei: \” & _
myAnhänge(i).DisplayName & vbCrLfNext i
\’für alle Anhänge…
While myAnhänge.Count > 0
\’entferne es (wird für Outlook 2002/2003 benötigt)
\’myAnhänge.Remove 1
\’entferne es (wird für Outlook 2000 benötigt)
myAnhänge(1).Delete
Wend
\’abspeichern ohne Anhang
myteil.Save
End If
Next
\’free variables
Set myteils = Nothing
Set myteil = Nothing
Set myAnhänge = Nothing
Set myAnhang = Nothing
Set myOlApp = Nothing
Set myOlExp = Nothing
Set myOlSel = Nothing
Resume
End Sub
- AutorBeitrag