Docmd.Sendobject - Erteilen/Verweigern problem

12/11/2014 - 15:30 von Pommes Kartoffel | Report spam
Hallo zusammen,

wir sind hier im Geschàft gerade am umstellen von XP mit AC03 auf WIN 7 mit AC10.
Nun habe ich das Problem das alle meine Datenbanken beim Docmd.Sendobject befehl eine Meldung aufplopen lassen die so aussieht:

[URL=http://www.pic-upload.de/view-25234...k.png.html][IMG]http://www11.pic-upload.de/thumb/12...yvlrb3.png[/IMG][/URL]

Ich habe alle Sicherheiten schon nach unten gestellt, das bringt leider auch keine Verbesserung.

Ansonsten habe ich noch diesen CODE gefunden:

Function fSaveOutlookAttachments(strOutputFld As String) As Long
'//Durchsuchen der Outlook-Inbox und speichern der Anlagen aller Mailelemente
'//Parameter: Pfad des Verzeichnisses in das die Anlagen gespeichert werden sollen
Dim olookApp As New Outlook.Application
Dim olookSpace As Outlook.NameSpace
Dim olookFolder As Outlook.MAPIFolder
Dim olookMailItem As Outlook.MailItem
Dim strPathFile As String
Dim lngCounter As Long '//Zaehler

lngCounter = 0
Set olookApp = New Outlook.Application
Set olookSpace = olookApp.GetNamespace("MAPI")
Set olookFolder = olookSpace.GetDefaultFolder(olFolderInbox)

For Each olookMailItem In olookFolder.Items
With olookMailItem
'//Pruefung, ob die Mail eine Anlage hat
If olookMailItem.Attachments.Count > 0 Then
'//Ja, also im uebergebenen Verzeichnis speichern
strPathFile = strOutputFld & olookMailItem.Attachments.Item(1).FileName
olookMailItem.Attachments.Item(1).SaveAsFile (strPathFile)
lngCounter = lngCounter + 1
End If
End With
Next olookMailItem

Set olookMailItem = Nothing
Set olookFolder = Nothing
Set olookSpace = Nothing
Set olookApp = Nothing

fSaveOutlookAttachments = lngCounter

End Function

(Quelle: http://www.ms-office-forum.net/foru...readidd593) doch bevor ich mich nun an den ran bewege und Ihn 70 mal Programmieren darf ist meine Frage an euch ob ihr vielleicht einen Lösungsweg habt das ich die obige Meldung wegbekomme?


Vielen Dank

Pommes K.
 

Lesen sie die antworten

Ähnliche fragen