Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
How to: Email Anhang automatisch speichern u. umbennen
zurück: Kostenlos telefonieren mit Outlook FreeCallPZ+Peterzahlt.de weiter: Feiertage für Outlook Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten.     Status: Tutorial Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
bobmalaria
Von allem ein bisschen Ahnung, kein Experte


Verfasst am:
28. Sep 2006, 00:01
Rufname:

How to: Email Anhang automatisch speichern u. umbennen - How to: Email Anhang automatisch speichern u. umbennen

Nach oben
       Version: Office 2003

Dieses kleine How To zeigt wie man einen e-mail-anhang, der von einem bestimmten absender kommt,speichert und umbenennt

Ich benutze diesen code um scanns, die mir per mail immer von der gleichen adresse geschickt werden, zu archivieren.

Was dieser Code kann:
Dieser Code ueberprueft ob die eingehende mail
a) von einem bestimmten abesnder kommt
b) einen anhang hat

hat die mail einen anhang wird folgendes gemacht:
der betreff der email erstellt einen neuen ordner
der text in der mail wird zum dateinamen

Der code muss in "This outlook session" stehen
Code:
Private Sub Application_NewMail()
    Dim Foldername As String
    Dim objIn As MAPIFolder
    Dim objNewMail As MailItem
    Dim find As AcFindMatch
   
    On Error Resume Next
    Set objIn = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
    For Each objNewMail In objIn.Items
        With objNewMail
            ' enter email adress to which the scanner sends the mail between the ""
            If objNewMail.SenderEmailAddress = "test@adresse.de" Then
                If .UnRead = True Then
                    NumberOfMails = .Attachments.Count
                    If NumberOfMails > 0 Then
                        ' create the folder c:\temp and in this folder a folder with the name of the mail subject
                        ' Existing folders won't be over overwritten, objNewMail.Subject is not case sensitive
                        Foldername = "C:\temp\" _
                                   & Replace(objNewMail.Subject, ":", "")
                        MkDir Foldername
                        For i = 1 To NumberOfMails
                            ' save the attachment to the folder mentioned
                            ' above and replace the filname with the mail-body
                            ' the vbCrLf, "" function replaces vertical spacing
                            ' pdf is the filetype of the scanned paper
                            objNewMail.BodyFormat = olFormatPlain
                            S = Len(.Body)
                            .Attachments.Item(i).SaveAsFile Foldername & "\" _
                                  & Replace(Mid(.Body _
                                              , InStr(.Body, ".com") + 4, S) _
                                          , vbCrLf, "") & ".pdf"
                            ' Optional: the mail can be deleted after saving
                            '.Delete
                            ' Optional: MsgBox for the user
                            'MsgBox ("Attachment saved successfully")
                       
                        Next i
                    End If
                End If
            End If
        End With
    Next objNewMail
End Sub
zwei sachen muessen erwaehnt werden:
1) in der zeile
Code:
                        Foldername = "C:\temp\" _
                                   & Replace(objNewMail.Subject, ":", "")
loesche ich eventuelle ":" da ich manchmal auch weitergeleitete mails bekomme und : als zeichen in ordnernamen nicht zulaessig ist.

2) in der zeile
Code:
                            .Attachments.Item(i).SaveAsFile Foldername & "\" _
                                  & Replace(Mid(.Body _
                                              , InStr(.Body, ".com") + 4, S) _
                                          , vbCrLf, "") & ".pdf"
musste ich (mit seeehr viel hilfe) zu einem kunstgriff greifen. der grund war, meinem scan wird immer ein automatischer mail-text angehaengt. ich will ja aber nur das was ich als dateinamen haben will haben. deshalb suche ich mit InStr nach dem string ".com" (letztes wort des standard textes) zaehle dann +4 um hinter ".com" zu kommen und zaehle dann bis zum ende (bei mir "s")

wer die datei nicht umbenennen will der kann folgende zeile benutzen:
Code:
                            .Attachments.Item(i).SaveAsFile Foldername & "\" _
                                               & .Attachments.Item(i).FileName
wer keinen standard text hat, aber die datei umbenennen will, bei dem sollte es so gehen:
Code:
                            .Attachments.Item(i).SaveAsFile Foldername & "\" _
                                                          & Replace(.Body _
                                                                  , vbCrLf, "")
hiermit danke ich nochmal allen die mir geholfen haben diesen code zusammen zu basteln! DANKE!

Weiter hilfreiche links sind eventuell die einzelnen Themen die ich eroeffnet hatte um diesen code zu schreiben:
Dateiname mit mail-body ersetzen: Attachment-Name durch Mail-text ersetzen
dazu auch:
Einen string im mail-body suchen: Suche nach bestimmtem wort im mail-text

Anlage automatisch speichern: Anlagen von bestimmtem Absender automatisch speichern

gruss aus den USA


Zuletzt bearbeitet von bobmalaria am 06. Okt 2006, 17:09, insgesamt 2-mal bearbeitet
Christi@n
Outlook-Moderator


Verfasst am:
28. Sep 2006, 11:12
Rufname:
Wohnort: Bamberg


AW: How to: Email Anhang automatisch speichern u. umbennen - AW: How to: Email Anhang automatisch speichern u. umbennen

Nach oben
       Version: Office 2003

{Dieser Beitrag nimmt das Thema aus den unbeantworteten Themen heraus}
_________________
Viele Grüße
Christian
Neues Thema eröffnen   Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Outlook Mail: E-Mails mit Anhang drucken?? 2 Realers 1006 17. Dez 2004, 12:36
Realers E-Mails mit Anhang drucken??
Keine neuen Beiträge Outlook Mail: Sortierung bei Anzeige eigener Kontakte bei Email senden 6 Sushi 1412 08. Dez 2004, 15:04
wolf-it Sortierung bei Anzeige eigener Kontakte bei Email senden
Keine neuen Beiträge Outlook Mail: Automatisch Sende- Konto wählen 2 TschiepTschiep 1091 30. Nov 2004, 01:29
Gast Automatisch Sende- Konto wählen
Keine neuen Beiträge Outlook Mail: OutlookAntworten über eine andere E-Mail adresse verschicken 5 klient 5619 09. Nov 2004, 00:27
Amethyst OutlookAntworten über eine andere E-Mail adresse verschicken
Keine neuen Beiträge Outlook Mail: Email geschutzt senden 6 gugenot 1507 22. Okt 2004, 11:51
gugenot Email geschutzt senden
Keine neuen Beiträge Outlook Mail: Symantec E-Mail Proxy 0 andy1169 1920 04. Okt 2004, 19:23
andy1169 Symantec E-Mail Proxy
Keine neuen Beiträge Outlook Mail: gelese Mails als Ungelesen behalten (automatisch!) 1 blueandrew 1514 01. Okt 2004, 09:56
macdeal gelese Mails als Ungelesen behalten (automatisch!)
Keine neuen Beiträge Outlook Mail: senden von mails bei web.de - speichern bei outlook 2 Wuzz 1522 11. Sep 2004, 13:07
hasemann senden von mails bei web.de - speichern bei outlook
Keine neuen Beiträge Outlook Mail: Email in Xml umwandeln 0 Anderas 1209 17. Aug 2004, 15:04
Anderas Email in Xml umwandeln
Keine neuen Beiträge Outlook Mail: Dateipfad in einem email einfügen 1 Gast 1309 16. Aug 2004, 23:57
Nicki Wruck Dateipfad in einem email einfügen
Keine neuen Beiträge Outlook Mail: Verteilerliste aus Kategorien automatisch erstellen? 0 Gast 780 02. Aug 2004, 20:18
Gast Verteilerliste aus Kategorien automatisch erstellen?
Keine neuen Beiträge Outlook Mail: Emails automatisch ausdrucken ?? 4 marlon 6130 13. Jul 2004, 16:50
Gast Emails automatisch ausdrucken ??
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML Editor Forum