Thema Datum  Von Nutzer Rating
Antwort
11.06.2013 13:21:34 gast5000
NotSolved
11.06.2013 14:22:35 Gast66736
NotSolved
11.06.2013 14:38:47 gast5000
NotSolved
11.06.2013 20:00:55 Gast14813
NotSolved
14.06.2013 07:45:22 gast5000
NotSolved
14.06.2013 08:25:19 gast5000
NotSolved
Rot For Schleife abbrechen
 21.06.2013 10:14:36 gast5000
Solved

Ansicht des Beitrags:
Von:
gast5000		 Datum:
21.06.2013 10:14:36		 Views:
957		 Rating:
     
Antwort:
 Nein
Thema:
For Schleife abbrechen

für all diejenigen die zu helfen versucht haben --> Vielen Dank!!

 

Hab das problem jetzt gelöst.

Für die, die es interessiert:

musste "ThisOutlookSession" folgendermaßen ändern:

Private WithEvents monitedFolderItems As Items


Private Sub Application_Startup()
    Dim sentItemsFolder As MAPIFolder
    Set sentItemsFolder = Application.Session.GetDefaultFolder(5) 'olFolderSentMail
    Set monitedFolderItems = sentItemsFolder.Items
End Sub

Private Sub monitedFolderItems_ItemAdd(ByVal Item As Object)
    Set objItems = Item.ItemProperties
    Set objItem = objItems.Item("Archiv")
    If Not objItem Is Nothing Then
     
    If objItem.Value <> "" Then
      
        Set objOutlook = GetObject(, "Outlook.Application")
        Set objMail = objOutlook.CreateItem(0)  'olMailItem
       
        objMail.To = "mail@adress.de"
        objMail.Subject = objItem.Value
       
        Set myCopiedItem = Item.Copy
       
     End If
 
      If MsgBox("Möchten Sie die Mail archivieren?", vbYesNo) = vbYes Then
        objMail.Attachments.Add (myCopiedItem)
        objMail.Send
      Else
             
    End If
    End If
 
End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
11.06.2013 13:21:34 gast5000
NotSolved
11.06.2013 14:22:35 Gast66736
NotSolved
11.06.2013 14:38:47 gast5000
NotSolved
11.06.2013 20:00:55 Gast14813
NotSolved
14.06.2013 07:45:22 gast5000
NotSolved
14.06.2013 08:25:19 gast5000
NotSolved
Rot For Schleife abbrechen
 21.06.2013 10:14:36 gast5000
Solved