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

gelöst OL 2002 VBA Problem bei einem Pfad

Mitglied: Rabitionismus

Rabitionismus (Level 1) - Jetzt verbinden

16.09.2009, aktualisiert 18.09.2009, 3087 Aufrufe, 3 Kommentare

ok hier mein momentanes Script. @ Biber es ging mir nur um die Art und Weise (sarkastisch und suffisant) deiner Antwort. Von Programmierung wirst du wahrscheinlich mehr verstehen als ich...

Hallo,
Ich wollte, dass alle gesendeten Objekte beim Start von Outlook in Tasks verwandelt werden. Da ich nicht so der VBA Spezialist bin hab ich mir mein Skript zusammenkopiert und dann abgeändert.
leider funktioniert ein Pfad nicht (natürlich ist das einer der Zeilen die ich aus meinem Kopf herausgezaubert habe)...
Das ist mein aktueller Code. Dem "olItem" wird kein Wert zugeordnet und ich habe auch keine Ahnung wie...und das Skript soll nicht auf den Posteingang laufen, sondern auf Gesendete Objekte, leider habe ich noch keine funktionelle Lösung raus. Wäre toll wenn mir jemand hilft! Am Ende soll dieses Script nur für einen bestimmten Absender laufen, da hab ich auch noch keine Ahnung, das wäre aber der nächste schritt. Ich nehme an das ich das über eine For each Schleife machen muss.
01.
Option Explicit 
02.
Dim MyOLApp As Application 
03.
Dim myNameSpace As NameSpace 
04.
 
05.
Public WithEvents olItem As MailItem 
06.
Private Sub Application_Startup() 
07.
     
08.
    Dim olItem As MailItem 
09.
    Dim oeff As Outlook.MAPIFolder 
10.
    Dim olApp As Outlook.Application 
11.
    Dim olTask As Outlook.TaskItem 
12.
    Dim cntSelection As Integer 
13.
    Dim I 
14.
    Dim sent As Outlook.Explorer 
15.
    Dim cf As Outlook.MAPIFolder 
16.
     
17.
        Set olApp = New Outlook.Application 
18.
        Set oeff = olApp.GetNamespace("MAPI").Folders.Item("Öffentliche Ordner").Folders.Item("Alle Öffentlichen Ordner").Folders.Item("Firma Ordner").Folders.Item("Abteilung").Folders.Item("Abteilung Tasks") 
19.
             
20.
            If oeff Is Nothing Then 
21.
                MsgBox "Invalid Folder" 
22.
                 
23.
            Else 
24.
             
25.
Set olApp = Outlook.CreateObject("Outlook.Application") 
26.
Set olTask = olApp.CreateItem(olTaskItem) 
27.
Set sent = olApp.ActiveExplorer 
28.
Set cf = sent.CurrentFolder 
29.
 
30.
cntSelection = sent.Selection.Count 
31.
For I = 1 To cntSelection 
32.
Set olItem = sent.Items(I) 
33.
olTask.Attachments.Add olItem 
34.
olTask.Subject = "Empfangen zu Vorgang Betreff: " & olItem.Subject 
35.
olTask.Body = olItem.Body 
36.
olItem.Move Application.GetNamespace("MAPI").Folders.Item("Öffentliche Ordner").Folders.Item("Alle Öffentlichen Ordner").Folders.Item("Firma Ordner").Folders.Item("Abteilung").Folders.Item("Abteilung Tasks") 
37.
 
38.
Next 
39.
olTask.DueDate = DateAdd("h", 48, Now) 
40.
olTask.StartDate = DateAdd("h", 0, Now) 
41.
 
42.
olTask.ReminderSet = True 
43.
olTask.ReminderTime = DateAdd("h", 24, Now) 
44.
 
45.
olTask.Save 
46.
olTask.Move Application.GetNamespace("MAPI").Folders.Item("Öffentliche Ordner").Folders.Item("Alle Öffentlichen Ordner").Folders.Item("Firma Ordner").Folders.Item("Abteilung").Folders.Item("Abteilung Tasks") 
47.
olTask.Display 
48.
        End If 
49.
End Sub


[Edit Biber] Codetags nachgetragen. (Das Skript endet wirklich mittendrin, ich nix gemacht).[/Edit]
Mitglied: Biber
16.09.2009 um 20:56 Uhr
Moin Rabitionismus,

ich kenn mich zwar mit Programmieren nicht so gut aus, aber ich fürchte, die letzte Frage ...
BTW wäre ich sehr dankbar wenn ihr mir sagen könntet ob der Rest soweit funktional ausschaut...
..... würde ich vorsichtig so beantworten:
Als ich deinen Code zu Ende gelesen hatte, wünschte ich mir schlagartig zu erblinden und das Gedächtnis zu verlieren..

Nachdem ich jetzt zur Beruhigung zwei Stunden auf meiner fussgeklöppelten osttibetanischen Yogamatte ein paar Atemübungen gemacht habe fühle ich mich aber entspannt genug zum Antworten.

Programmierung für Cheffes/Kunden wie auch Fragen zu Code-Fehlern hier im Forum funktionieren im Prinzip genauso wie der Kauf einer Tüte gemischter Brötchen fürs WG-Frühstück.
Du solltest vor dem Abendessen wieder zurück sein und es gibt Theater, wenn Du nur mit einem Pfund Mehl und einem Hefewürfel wieder zurückkommst und sagst "den Rest machen wir schnell zusammen fertig."

Wie dem auch sei, die zwei in deinem Schnipsel lose zusammengetackerten Copy&Paste-Schnipsel sind bestenfalls in dieser Form dazu in der Lage, Speicherplatz auf einer Festplatte zu belegen. Und nicht mal das in einem Ausmaß, das irgendwelche "Ahh"s und "Ohhh"s hier im Forum hervorrufen würde.

Deshalb jetzt noch mal im Ernst:
  • Wenn es bislang nur den Plan/die Vorgabe gibt "es sollen alle gesendeten Objekte beim Start von Outlook in Tasks verwandelt werden" ---> dann beschreibe das etwas genauer (Termin? Prio? Wiedervorlage?)
  • Wenn es schon einen Codeschipsel gibt, den irgendein Code-Parser als irgendwie zur Familie gehörig einstufen würde ---> dann poste den.


Aber den oben geposteten Codefetzen mit der neckischen Anmerkung
'<----------------------------hier ist mein momentaner Fehler! "
zu posten.... ja hey, da hab ich ein Problem mit.

Grüße
Biber

P.S. In dieser hier-ist-mein-Fehler-Zeile ist uInbox noch gar nicht mehr als deklariert.
Es könnte dort z.B. schon "objApp.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)" oder ähnliches sein, aber isses halt nicht.
Bitte warten ..
Mitglied: Rabitionismus
17.09.2009 um 00:05 Uhr
Vielen Dank für den letzten Absatz, aber den Rest..... Wenn Irgendetwas nicht passt, falsch ist oder sonst was, kann man das auch freundlich schreiben. Aber nicht in so einer arroganten und respektlosen Art!
Bitte warten ..
Mitglied: Biber
17.09.2009 um 00:37 Uhr
Moin Rabitionismus,

Zitat von Rabitionismus:
Wenn Irgendetwas nicht passt, falsch ist oder sonst was, kann man das auch
Aber nicht in so einer arroganten und respektlosen Art!
Sorry, ich hab doch extra vorausgeschickt
ich kenn mich zwar mit Programmieren nicht so gut aus
Wahrscheinlich ist das der Grund dafür, dass ich in deine geposteten Codezeilen keinen Sinn hineininterpretieren kann.

Ich setz mich mal auf die Zuschauerbank und warte mit dir zusammen auf die Experten.
Dieser eine Fehler kann ja nicht schwer zu finden sein -du hast es ja schon auf die relevante Zeile eingegrenzt.

Viel Glück
Biber
Bitte warten ..
Ähnliche Inhalte
Basic

OL, VBA, Name des Publ Folders herausbekommen

gelöst Frage von ahstaxBasic6 Kommentare

Hallo, ich schreibe ein Makro, mit dem man in OL (hier 2013) eine E-Mail aus einem Spam-Filter-Ordner in den ...

Basic

VBA: Pfad nicht gefunden Laufzeitfehler 76

gelöst Frage von YannoschBasic2 Kommentare

Hi! Ich bekomme hier den Fehler Laufzeitfehler 76 "Pfad nicht gefunden" der Pfad "C:\" existiert aber. Woran kann das ...

VB for Applications

VBA Script - Pfade zu Dokumentevorlagen anpassen

gelöst Frage von JuckieVB for Applications11 Kommentare

Guten Morgen an alle, wir haben unser zentrales Dokumentenverzeichnis auf einen anderen Server umgezogen. Nun befinden sich in dem ...

Basic

Excel VBA - speichern, senden, Pfad angeben

gelöst Frage von next01deBasic3 Kommentare

Hallo Zusammen, ich würde gerne eine Excel VBA schreiben, welche folgendes durchführt: 1. Die Arbeitsmappe soll ganz normal gespeichert ...

Neue Wissensbeiträge
Windows 10
Zero-Day-Lücke in Microsoft Edge
Information von kgborn vor 1 TagWindows 10

In Microsofts Edge-Browser klafft wohl eine nicht geschlossene (0-Day) Sicherheitslücke im Just In Time Compiler (JIT Compiler) für Javascript. ...

Sicherheit
Microsoft und Skype: Sicherheit
Information von kgborn vor 1 TagSicherheit

Die Tage gab es ja einige Berichte zur Sicherheit des Skype-Updaters. Der Updater von Skype läuft unter dem Konto ...

Datenschutz

Behörden ignorieren Sicherheitsbedenken gegenüber Windows 10

Information von Penny.Cilin vor 2 TagenDatenschutz8 Kommentare

Hallo, passend zum Thema Ablösung LIMUX in München ein Beitrag bei Heise (siehe Link folgend). Behörden ignorieren Sicherheitsbedenken gegenüber ...

Sicherheit
Information Security Hub Munich airport
Information von brammer vor 2 TagenSicherheit

Hallo, Neues Center für Cyber Kriminalität am Münchener Flughafen brammer

Heiß diskutierte Inhalte
DSL, VDSL
Mindestgeschwindigkeiten DSL Telekom
Frage von justlukasDSL, VDSL13 Kommentare

Hallo zusammen, Seit diesem Jahr habe ich Verständnisprobleme mit dem Verhalten der Telekom. Wir haben seit einem Jahr VDSL ...

Switche und Hubs
LANCOM-Switch: Probleme (no link) mit SFP-Modulen?
Frage von THETOBSwitche und Hubs10 Kommentare

Hi zusammen, ich habe folgendes Problem: Und zwar habe ich an einem Standort drei Switche verbaut - LANCOM GS-2326P+, ...

Firewall
RB2011 Firewall Rule eine bestimmte Mac oder IP Adresse nicht zu blockieren
Frage von lightmanFirewall10 Kommentare

Hallo liebes Forum mit ihren Spezialisten. Ich habe meine Firewall so konfiguriert das kein Endgerät ohne meine Speziellen Erlaubnis ...

Humor (lol)
Was könnte man mit einem Server machen? Idee gesucht
Frage von 2SeitenHumor (lol)8 Kommentare

Hey Zusammen Ich habe einen alten HP G2 Rackserver zu Hause rumliegen. 28GB Ram, 1xAMD Prozi mit etwa 2GHz. ...