Outlook Spezialproblem..
Geizhals » Forum » Software » Outlook Spezialproblem.. (34 Beiträge, 240 Mal gelesen) Top-100 | Fresh-100
Du bist nicht angemeldet. [ Login/Registrieren ]
.
Re: Outlook Spezialproblem..
04.06.2005, 09:49:44
hi,

hab mich mal mit outlook makros gespielt...
prüft alle mails in inbox - könnte man noch auf unread items einschränken - und druckt mal die mails mit dem von dir in zeile 4 festgelegten betreff aus..., für´s attachment würd ich die dateiendung benötigen!
mit alt + f11 den vb editor öffnen, copy, paste, speichern...
startet beim empfang neuer mails automatisch...


Private Sub Application_NewMail()
    
    Dim strBetreff As String
    strBetreff = "Dein Betreff"

    Dim oApp As Outlook.Application
    Dim oONS As Outlook.NameSpace
    Dim oFolder As Outlook.MAPIFolder
    Dim oMsg As Outlook.MailItem
    Dim oItems As Outlook.Items
    Dim oAtt As Outlook.Attachment
    
    Set oApp = New Outlook.Application
    Set oONS = oApp.GetNamespace("MAPI")
    Set oFolder = oONS.GetDefaultFolder(olFolderInbox)
    'Set oFolder = oONS.Folders("myFolderName")   //define spezific folder
    Set oItems = oFolder.Items
    
    For Each oMsg In oItems
        If LCase(oMsg.Subject) Like strBetreff Then
            oMsg.PrintOut
            If oMsg.Attachments.Count > 0 Then
                For Each oAtt In oMsg.Attachments
->                 'oAtt.Open
                    'oAtt.SaveAsFile "C:\FolderName\" & oAtt.FileName   //save attachment
                Next
                'oMsg.Move oONS.GetDefaultFolder(olFolderDeletedItems)   //move message
                'oMsg.Delete   //delete message
            End If
        End If
    Next
    
    Set oApp = Nothing
    Set oONS = Nothing
    Set oFolder = Nothing
    Set oMsg = Nothing
    Set oItems = Nothing
    Set oAtt = Nothing
    
End Sub


und beim -> fehlt das öffnen, drucken und schließen des attachments.

lg,
hariw

ps: bin vermutlich erst wieder mitte kommernder woche vor einem rechner mit outlook ;-)


Bauernregel:

Liegt der Bauer auf der Lauer, ist Herr Lauer äußerst sauer.


Antworten PM Übersicht Chronologisch Zum Vorgänger
 
Melden nicht möglich
 

Dieses Forum ist eine frei zugängliche Diskussionsplattform.
Der Betreiber übernimmt keine Verantwortung für den Inhalt der Beiträge und behält sich das Recht vor, Beiträge mit rechtswidrigem oder anstößigem Inhalt zu löschen.
Datenschutzerklärung