Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Outlook-Script zum Speichern einer Mail
Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7, 8, 9  Weiter
zurück: Signatur per Makro bearbeiten weiter: Warnfenster falls Betreff schon im Postfach vorhanden ? Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Andreas.Fischer
Outlook - Moderator


Verfasst am:
01. Feb 2009, 13:17
Rufname:
Wohnort: Berlin

Re: AW: Outlook-Script zum Speichern einer Mail - Re: AW: Outlook-Script zum Speichern einer Mail

Nach oben
       

Hallo,

Anonymous - 28. Jan 2009, 13:22 hat folgendes geschrieben:
Hallo,

wie bekomme ich das hin wenn ich eine eMail intern weitergeleitet bekomme und ich die eMail-Adresse von der Ursprüngliche Nachricht haben möchte?

Jetzt steht ja mein "Mitarbeiter" drin. Gibt es da eine Möglichkeit wie "vorheriger Absender" oder so?

Danke

Das ist meines Wissens leider nicht möglich.

_________________
Gruß Andreas

Das besondere Erleben.
Andreas.Fischer
Outlook - Moderator


Verfasst am:
01. Feb 2009, 13:33
Rufname:
Wohnort: Berlin


Re: AW: Outlook-Script zum Speichern einer Mail - Re: AW: Outlook-Script zum Speichern einer Mail

Nach oben
       Version: Office 2003

Hallo Björn,
BjörnSKD - 19. Jan 2009, 12:50 hat folgendes geschrieben:
Hallo!

Ich bin echt begeistert von diesem Skript, denn das habe ich schon lange gesucht!
SUPER!

Besteht eigentlich die Möglichkeit, dieses Skript über einen
zusätzlichen Menü-Eintrag in das Menü, das durch einen
Rechts-Klick geöffnet wird, zu starten und nur die markierte
Mail zu "bearbeiten"?

Über Hilfe würde ich mich freuen.

Gruss
Björn

Leider kann ich dir bei deiner Frage nicht weiterhelfen. Du kannst das Script aber auch direkt in eine Symbolleiste einbinden und starten.

Wenn du es trotzdem probieren willst, suche auf der Seite OutlookCode.com nach Context.

_________________
Gruß Andreas

Das besondere Erleben.
MisterCutely
Ahnungsloser


Verfasst am:
10. März 2009, 12:09
Rufname:

AW: Outlook-Script zum Speichern einer Mail - AW: Outlook-Script zum Speichern einer Mail

Nach oben
       Version: Office XP (2002)

Hallo!

Erst mal wollte ich sagen tolles Skript!!!!

Nun hab ich aber noch eine Frage und zwar ist es möglich das auch Aufgaben- und Besprechungsanfragen auch abgespeichert werden, bzw. wie müsste man das realisieren?


Grüße
MC
Gast5
Gast


Verfasst am:
12. März 2009, 09:06
Rufname:

AW: Outlook-Script zum Speichern einer Mail - AW: Outlook-Script zum Speichern einer Mail

Nach oben
       Version: Office XP (2002)

Morgen,

ich stimme meinem Vorredner zu, echt tolles Makro!

Aber für meine Ansprüche kann es schon zu viel. Ich möchte nicht das die Anhänge in einer extra Datei gespeichert werden, ich weiss aber nicht welcher Teil des Codes dafür zuständig ist!? Wer kann mir sagen was raus muss?

Grüße
HB

Code:
'Anlagen speichern
  lngAttCount = myItem.Attachments.Count
   If lngAttCount > 0 Then
    For i = lngAttCount To 1 Step -1

     With myItem.Attachments.Item(i)
     
      strname = IIf(Len(strBackupPath & myItem.Subject) > 255, _
                Left(myItem.Subject, 255 - Len(strBackupPath)), myItem.Subject)
               
      strSubDir = strBackupPath & "\" & CleanString(strname)

       If Dir(strSubDir, vbDirectory) = "" Then
        MkDir strSubDir
       End If
Gast5
Gast


Verfasst am:
12. März 2009, 09:07
Rufname:


AW: Outlook-Script zum Speichern einer Mail - AW: Outlook-Script zum Speichern einer Mail

Nach oben
       Version: Office XP (2002)

Sorry war nur ein Teil des Codes!
Hier der ganze!
Code:
Public Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long
Public Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long
Public Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long
Public Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long)

Public Const BIF_RETURNONLYFSDIRS = 1
Public Const MAX_PATH = 260

Public Type BrowseInfo
    hwndOwner As Long
    pIDLRoot As Long
    pszDisplayName As Long
    lpszTitle As Long
    ulFlags As Long
    lpfnCallback As Long
    lParam As Long
    iImage As Long
End Type


Sub SpeichernalsMSG()

Dim myExplorer As Outlook.Explorer
Dim myFolder As Outlook.MAPIFolder
Dim strname As String
Dim myItem As MailItem
Dim olSelection As Selection
Dim strBackupPath As String
Dim lngAttCount As Long, i As Long


Set myExplorer = Application.ActiveExplorer
Set myFolder = myExplorer.CurrentFolder

If Not myFolder.DefaultItemType = olMailItem Then GoTo Ende

strBackupPath = GetFileDir

If strBackupPath = "" Then Exit Sub

Set olSelection = myExplorer.Selection


For Each myItem In olSelection

With myItem
fstTo = Mid(.To, 1, InStr(1, .To, ";", vbTextCompare))
If fstTo = "" Then fstTo = .To
If fstTo = "" Then fstTo = "BCC-Empfänger"
itemName = Format(.ReceivedTime, "dd_mm_yyyy") & "_" & .Subject & "_" & fstTo

strname = IIf(Len(strBackupPath & itemName) > 255, _
Left(itemName, 255 - Len(strBackupPath)), itemName) & ".msg"
End With


'Ist Datei schon vorhanden
strtestname = strBackupPath & "\" & CleanString(strname)

myItem.SaveAs FileExists(strtestname, strBackupPath), olMSG
       
'Anlagen speichern
  lngAttCount = myItem.Attachments.Count
   If lngAttCount > 0 Then
    For i = lngAttCount To 1 Step -1

     With myItem.Attachments.Item(i)
     
      strname = IIf(Len(strBackupPath & myItem.Subject) > 255, _
                Left(myItem.Subject, 255 - Len(strBackupPath)), myItem.Subject)
               
      strSubDir = strBackupPath & "\" & CleanString(strname)

       If Dir(strSubDir, vbDirectory) = "" Then
        MkDir strSubDir
       End If

'    Datei schon gespeichert
      Datei = strSubDir & "\" & .FileName
      geändert = False
      nummer = 1
      Prüfname = Datei
Zurück:

      nummer = nummer + 1

       If CreateObject("Scripting.FileSystemObject").FileExists(Prüfname) = True Then
        dateiname = CreateObject("Scripting.FileSystemObject").GetBaseName(Datei)
        dateiendung = CreateObject("Scripting.FileSystemObject").GetExtensionName(Datei)
        dateinameneu = dateiname & " (" & nummer & ")" & "." & dateiendung
        Prüfname = strSubDir & "\" & dateinameneu
        geändert = True
        GoTo Zurück:
       Else
        If geändert = False Then dateinameneu = .FileName
       End If

     .SaveAsFile strSubDir & "\" & dateinameneu
    End With
   Next
  Else
  End If
Next
Ende:

End Sub

Private Function CleanString(strData As String) As String
strData = ReplaceChar(strData, "´", "_")
strData = ReplaceChar(strData, "`", "_")
strData = ReplaceChar(strData, "'", "_")
strData = ReplaceChar(strData, "{", "(")
strData = ReplaceChar(strData, "[", "(")
strData = ReplaceChar(strData, "]", ")")
strData = ReplaceChar(strData, "}", ")")
strData = ReplaceChar(strData, "/", "-")
strData = ReplaceChar(strData, "\", "-")
strData = ReplaceChar(strData, ":", "")
strData = ReplaceChar(strData, "*", "_")
strData = ReplaceChar(strData, "?", "")
strData = ReplaceChar(strData, """", "_")
strData = ReplaceChar(strData, "|", "")
strData = ReplaceChar(strData, "<", "")
strData = ReplaceChar(strData, ">", "")
strData = ReplaceChar(strData, " ", "_")
CleanString = Trim(strData)
End Function

Private Function ReplaceChar(strData As String, strBadChar As String, strGoodChar As String) As String
Dim tmpChar, tmpString As String
Dim i As Long
For i = 1 To Len(strData)
tmpChar = Mid(strData, i, 1)
If tmpChar = strBadChar Then
tmpString = tmpString & strGoodChar
Else
tmpString = tmpString & tmpChar
End If
Next i
ReplaceChar = Trim(tmpString)
End Function

Public Function GetFileDir() As String
Dim ret As String
    Dim lpIDList As Long
    Dim sPath As String, udtBI As BrowseInfo
    Dim RdStrings() As String, nNewFiles As Long

    'Show a browse-for-folder form:
    With udtBI
        .lpszTitle = lstrcat("Bitte wählen Sie den Ordner zum Exportieren:", "")
        .ulFlags = BIF_RETURNONLYFSDIRS
    End With

    lpIDList = SHBrowseForFolder(udtBI)
    If lpIDList = 0 Then Exit Function
       
    'Get the selected folder.
    sPath = String$(MAX_PATH, 0)
    SHGetPathFromIDList lpIDList, sPath
    CoTaskMemFree lpIDList
    sPath = StripNulls(sPath)
    GetFileDir = sPath
End Function

Public Function StripNulls(ByVal OriginalStr As String) As String
    If (InStr(OriginalStr, Chr$(0)) > 0) Then
        OriginalStr = Left$(OriginalStr, InStr(OriginalStr, Chr(0)) - 1)
    End If
    StripNulls = OriginalStr
End Function

Public Function FileExists(PrüfnameMsg, SubDir As String)

On Error Resume Next
'Datei schon gespeichert
      changes = False
      Number = 1
      Prüfname = PrüfnameMsg
Back:

      Number = Number + 1

       If CreateObject("Scripting.FileSystemObject").FileExists(Prüfname) = True Then
        dateiname = CreateObject("Scripting.FileSystemObject").GetBaseName(Prüfname)
        dateiendung = CreateObject("Scripting.FileSystemObject").GetExtensionName(Prüfname)
        dateinameneu = dateiname & " (" & Number & ")" & "." & dateiendung
        Prüfname = SubDir & "\" & dateinameneu
        changes = True
        GoTo Back:
       Else
       End If

        If changes = False Then
         FileExists = PrüfnameMsg
        Else
         FileExists = Prüfname
        End If

End Function
m1ch4
Gast


Verfasst am:
17. März 2009, 13:28
Rufname:

AW: Outlook-Script zum Speichern einer Mail - AW: Outlook-Script zum Speichern einer Mail

Nach oben
       

Hallo liebe Leute,

ist es möglich mit der von BrowseInfo zur Verfügung gestellten Editbox den Dateinamen zu editieren? Bisher hab ich das mit ner einfachen InputBox gelöst, welche die vorher ausgelesenen eigenschaften von emails wie datum etc. als default Text zum editieren bereit stellt.
Aber einfacher wäre es,wenn der zu speichernde Dateiname direkt in der EditBox zum bearbeiten bereit stehen würde.
Würde jedenfalls einen Klick sparen Wink

Vielen Dank schon mal für eure Hilfe.

gruß, m1ch4
Andreas.Fischer
Outlook - Moderator


Verfasst am:
30. März 2009, 13:11
Rufname:
Wohnort: Berlin

Re: AW: Outlook-Script zum Speichern einer Mail - Re: AW: Outlook-Script zum Speichern einer Mail

Nach oben
       Version: Office XP (2002)

Hallo,
MisterCutely - 10. März 2009, 12:09 hat folgendes geschrieben:
Nun hab ich aber noch eine Frage und zwar ist es möglich das auch Aufgaben- und Besprechungsanfragen auch abgespeichert werden, bzw. wie müsste man das realisieren?


Ersetze die Zeile Dim myItem As MailItem durch diese Zeile Dim myItem As Object.

Nun lösche noch die Zeile If Not myfolder.DefaultItemType = olMailItem Then GoTo Ende.

_________________
Gruß Andreas

Das besondere Erleben.
Andreas.Fischer
Outlook - Moderator


Verfasst am:
30. März 2009, 13:18
Rufname:
Wohnort: Berlin

Re: AW: Outlook-Script zum Speichern einer Mail - Re: AW: Outlook-Script zum Speichern einer Mail

Nach oben
       Version: Office XP (2002)

Hallo,

Gast5 - 12. März 2009, 09:06 hat folgendes geschrieben:
Aber für meine Ansprüche kann es schon zu viel. Ich möchte nicht das die Anhänge in einer extra Datei gespeichert werden, ich weiss aber nicht welcher Teil des Codes dafür zuständig ist!? Wer kann mir sagen was raus muss?


Du musst die folgenden Zeilen aus dem Script entfernen:
Code:
'Anlagen speichern
  lngAttCount = myItem.Attachments.Count
   If lngAttCount > 0 Then
    For i = lngAttCount To 1 Step -1

     With myItem.Attachments.Item(i)
      strname = IIf(Len(strBackupPath & myItem.Subject) > 255, _
                Left(myItem.Subject, 255 - Len(strBackupPath)), myItem.Subject)
               
      strSubDir = strBackupPath & "\" & CleanString(strname)

       If Dir(strSubDir, vbDirectory) = "" Then
        MkDir strSubDir
       End If

'    Datei schon gespeichert
      datei = strSubDir & "\" & .FileName
      geändert = False
      nummer = 1
      Prüfname = datei
Zurück:

      nummer = nummer + 1

       If CreateObject("Scripting.FileSystemObject").FileExists(Prüfname) = True Then
        dateiname = CreateObject("Scripting.FileSystemObject").GetBaseName(datei)
        Dateiendung = CreateObject("Scripting.FileSystemObject").GetExtensionName(datei)
        dateinameneu = dateiname & " (" & nummer & ")" & "." & Dateiendung
        Prüfname = strSubDir & "\" & dateinameneu
        geändert = True
        GoTo Zurück:
       Else
        If geändert = False Then dateinameneu = .FileName
       End If

     .SaveAsFile strSubDir & "\" & dateinameneu
    End With
 Next
  Else
  End If

_________________
Gruß Andreas

Das besondere Erleben.
Andreas.Fischer
Outlook - Moderator


Verfasst am:
30. März 2009, 13:24
Rufname:
Wohnort: Berlin

Re: AW: Outlook-Script zum Speichern einer Mail - Re: AW: Outlook-Script zum Speichern einer Mail

Nach oben
       

Hallo,

m1ch4 - 17. März 2009, 13:28 hat folgendes geschrieben:
ist es möglich mit der von BrowseInfo zur Verfügung gestellten Editbox den Dateinamen zu editieren? Bisher hab ich das mit ner einfachen InputBox gelöst, welche die vorher ausgelesenen eigenschaften von emails wie datum etc. als default Text zum editieren bereit stellt.
Aber einfacher wäre es,wenn der zu speichernde Dateiname direkt in der EditBox zum bearbeiten bereit stehen würde.
Würde jedenfalls einen Klick sparen Wink

Meines Wissens ist das leider nicht möglich.

_________________
Gruß Andreas

Das besondere Erleben.
Toni Makkaroni
Von jedem etwas!


Verfasst am:
16. Nov 2009, 17:11
Rufname: Elisabeth

AW: Outlook-Script zum Speichern einer Mail - AW: Outlook-Script zum Speichern einer Mail

Nach oben
       Version: Office 2003

Hallo,

ich habe mir das ganze gerade mal durchgelesen. Also die Lösung, dass wenn man eine Mail speichern will, als Dateityp gleich .msg hat, find ich super.
Aber diese ganzen Codes bringen mich ein bisschen durcheinander.

Welchen Code muss ich jetzt nehmen, wenn einfach nur der Dateityp .msg schon stehen soll und den Namen gebe ich extra ein?

Vielen Dank für Eure Hilfe

Grüße
Toni Makkaroni

_________________
Nichtstun macht nur dann Spaß, wenn man eigentlich viel zu tun hätte.
Noël Coward
Andreas.Fischer
Outlook - Moderator


Verfasst am:
23. Nov 2009, 12:58
Rufname:
Wohnort: Berlin

AW: Outlook-Script zum Speichern einer Mail - AW: Outlook-Script zum Speichern einer Mail

Nach oben
       

Hallo Toni,

Ich habe da mal extra für dich was zusammengebastelt.
Mit dem Makro werden nur markierte E-Mails abgespeichert.
Den Standard-Speicherort solltest du bei strBackupPath noch festlegen.

Code:
Const strBackupPath As String = "C:\Dokumente und Einstellungen\Username\Eigene Dateien\E-Mails\"

Sub Selected_Mail_save()

Dim myNamespace As Outlook.NameSpace
Dim olExplorer As Explorer
Dim olFolder As MAPIFolder
Dim olSelection As Selection
Dim olitem As MailItem
Dim strname As String

Set myNamespace = Application.GetNamespace("MAPI")
Set olExplorer = Application.ActiveExplorer
Set olFolder = Application.ActiveExplorer.CurrentFolder


If olFolder.DefaultItemType = olMailItem Then
    Set olSelection = olExplorer.Selection

    For Each olitem In olSelection

        With olitem

            If Dir(strBackupPath, vbDirectory) = "" Then
                MkDir strBackupPath
            End If
           
            strname = InputBox(.SenderName & Chr(13) & Chr(13) & .Subject, "Gebe einen Namen ein!", .Subject)
            olitem.SaveAs strBackupPath & "\" & CleanString(strname) & ".msg", olMSG

        End With

    Next olitem
Else
    MsgBox "In diesem Ordner befinden sich keine E-Mail-Nachrichten."
End If

End Sub

Private Function CleanString(strData As String) As String
strData = ReplaceChar(strData, "´", "_")
strData = ReplaceChar(strData, "`", "_")
strData = ReplaceChar(strData, "'", "_")
strData = ReplaceChar(strData, "{", "(")
strData = ReplaceChar(strData, "[", "(")
strData = ReplaceChar(strData, "]", ")")
strData = ReplaceChar(strData, "}", ")")
strData = ReplaceChar(strData, "/", "-")
strData = ReplaceChar(strData, "\", "-")
strData = ReplaceChar(strData, ":", "")
strData = ReplaceChar(strData, "*", "_")
strData = ReplaceChar(strData, "?", "")
strData = ReplaceChar(strData, """", "_")
strData = ReplaceChar(strData, "<", "")
strData = ReplaceChar(strData, ">", "")
strData = ReplaceChar(strData, "|", "")
CleanString = Trim(strData)
End Function

Private Function ReplaceChar(strData As String, strBadChar As String, strGoodChar As String) As String
Dim tmpChar, tmpString As String
Dim i As Long
For i = 1 To Len(strData)
tmpChar = Mid(strData, i, 1)
If tmpChar = strBadChar Then
tmpString = tmpString & strGoodChar
Else
tmpString = tmpString & tmpChar
End If
Next i
ReplaceChar = Trim(tmpString)
End Function

_________________
Gruß Andreas

Das besondere Erleben.
Toni Makkaroni
Von jedem etwas!


Verfasst am:
24. Nov 2009, 11:02
Rufname: Elisabeth

AW: Outlook-Script zum Speichern einer Mail - AW: Outlook-Script zum Speichern einer Mail

Nach oben
       Version: Office 2003

Hallo Andreas,

das ist super. Vielen Dank! Razz
Wäre es noch irgendwie möglich den Speicherort auch immer noch extra auszuwählen, da dieser sich immer ändert?

Grüße
Toni Makkaroni

_________________
Nichtstun macht nur dann Spaß, wenn man eigentlich viel zu tun hätte.
Noël Coward
Andreas.Fischer
Outlook - Moderator


Verfasst am:
24. Nov 2009, 12:59
Rufname:
Wohnort: Berlin

AW: Outlook-Script zum Speichern einer Mail - AW: Outlook-Script zum Speichern einer Mail

Nach oben
       

Hallo,

Dann nutze dieses erweiterte Makro:
Code:
Public Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long
Public Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long
Public Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long
Public Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long)

Public Const BIF_RETURNONLYFSDIRS = 1
Public Const MAX_PATH = 260

Public Type BrowseInfo
    hwndOwner As Long
    pidlRoot As Long
    pszDisplayName As String
    lpszTitle As String
    ulFlags As Long
    lpfn As Long
    lParam As Long
    iImage As Long
End Type

Sub Selected_Mail_save2()

Dim myNamespace As Outlook.NameSpace
Dim olExplorer As Explorer
Dim olFolder As MAPIFolder
Dim olSelection As Selection
Dim olitem As MailItem
Dim strname As String

Set myNamespace = Application.GetNamespace("MAPI")
Set olExplorer = Application.ActiveExplorer
Set olFolder = Application.ActiveExplorer.CurrentFolder

strBackupPath = GetFileDir
If strBackupPath = "" Then Exit Sub

If olFolder.DefaultItemType = olMailItem Then
    Set olSelection = olExplorer.Selection

    For Each olitem In olSelection

        With olitem
           
            strname = InputBox(.SenderName & Chr(13) & Chr(13) & .Subject, "Gebe einen Namen ein!", .Subject)
            olitem.SaveAs strBackupPath & "\" & CleanString(strname) & ".msg", olMSG

        End With

    Next olitem
Else
    MsgBox "In diesem Ordner befinden sich keine E-Mail-Nachrichten."
End If

End Sub

Private Function CleanString(strData As String) As String
strData = ReplaceChar(strData, "´", "_")
strData = ReplaceChar(strData, "`", "_")
strData = ReplaceChar(strData, "'", "_")
strData = ReplaceChar(strData, "{", "(")
strData = ReplaceChar(strData, "[", "(")
strData = ReplaceChar(strData, "]", ")")
strData = ReplaceChar(strData, "}", ")")
strData = ReplaceChar(strData, "/", "-")
strData = ReplaceChar(strData, "\", "-")
strData = ReplaceChar(strData, ":", "")
strData = ReplaceChar(strData, "*", "_")
strData = ReplaceChar(strData, "?", "")
strData = ReplaceChar(strData, """", "_")
strData = ReplaceChar(strData, "<", "")
strData = ReplaceChar(strData, ">", "")
strData = ReplaceChar(strData, "|", "")
CleanString = Trim(strData)
End Function

Private Function ReplaceChar(strData As String, strBadChar As String, strGoodChar As String) As String
Dim tmpChar, tmpString As String
Dim i As Long
For i = 1 To Len(strData)
tmpChar = Mid(strData, i, 1)
If tmpChar = strBadChar Then
tmpString = tmpString & strGoodChar
Else
tmpString = tmpString & tmpChar
End If
Next i
ReplaceChar = Trim(tmpString)
End Function

Public Function GetFileDir() As String
    Dim Ret As String
    Dim lpIDList As Long
    Dim sPath As String, udtBI As BrowseInfo
    Dim RdStrings() As String, nNewFiles As Long
   
    'Show a browse-for-folder form:
    With udtBI
        .lpszTitle = "Bitte wählen Sie den Ordner zum speichern aus:"
        .ulFlags = BIF_RETURNONLYFSDIRS
    End With

    lpIDList = SHBrowseForFolder(udtBI)
    If lpIDList = 0 Then Exit Function
       
    'Get the selected folder.
    sPath = String$(MAX_PATH, 0)
    SHGetPathFromIDList lpIDList, sPath
    CoTaskMemFree lpIDList
    sPath = StripNulls(sPath)
    GetFileDir = sPath
End Function

Public Function StripNulls(ByVal OriginalStr As String) As String
    If (InStr(OriginalStr, Chr$(0)) > 0) Then
        OriginalStr = Left$(OriginalStr, InStr(OriginalStr, Chr(0)) - 1)
    End If
    StripNulls = OriginalStr
End Function

_________________
Gruß Andreas

Das besondere Erleben.
Toni Makkaroni
Von jedem etwas!


Verfasst am:
24. Nov 2009, 13:06
Rufname: Elisabeth

AW: Outlook-Script zum Speichern einer Mail - AW: Outlook-Script zum Speichern einer Mail

Nach oben
       

Shock WOW Shock
Einfach genial!
Vielen Dank Andreas! Razz

_________________
Nichtstun macht nur dann Spaß, wenn man eigentlich viel zu tun hätte.
Noël Coward
mex_
Im Profil kannst Du frei den Rang ändern


Verfasst am:
24. Feb 2010, 14:26
Rufname:


AW: Outlook-Script zum Speichern einer Mail - AW: Outlook-Script zum Speichern einer Mail

Nach oben
       

Hallo,

ist es auch möglich das Fenster zum speichern größer darzustellen? Am besten auf volle Bildschirmgröße.

Danke
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7, 8, 9  Weiter
Diese Seite Freunden empfehlen

Seite 7 von 9
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: Mail Absender falsch 8 Jürgen Eitler 3343 09. Sep 2005, 13:52
Gast Mail Absender falsch
Keine neuen Beiträge Outlook Mail: Outlook 2003 erste Mail wird nicht verschickt 6 Gast 2734 25. Aug 2005, 13:00
Krug Outlook 2003 erste Mail wird nicht verschickt
Keine neuen Beiträge Outlook Mail: Automatische Antworts mail (Urlaubsfunktion) 1 player-1 2825 21. Jul 2005, 20:04
wolf-it Automatische Antworts mail (Urlaubsfunktion)
Keine neuen Beiträge Outlook Mail: Outlook 2003 / Mail Weiterleiten / ich will es merken 4 Iceman008 1595 14. Jul 2005, 10:50
kraemer Outlook 2003 / Mail Weiterleiten / ich will es merken
Keine neuen Beiträge Outlook Mail: Kann man jede Adresse einer eingehenden Mail aut. speichern? 4 landau666 1425 13. Jul 2005, 17:21
Christi@n Kann man jede Adresse einer eingehenden Mail aut. speichern?
Keine neuen Beiträge Outlook Mail: Arbeitsspeicherprob. beim Anlagenhinzufügen einer neuen Mail 4 Tischler 995 11. Jul 2005, 15:19
Christi@n Arbeitsspeicherprob. beim Anlagenhinzufügen einer neuen Mail
Keine neuen Beiträge Outlook Mail: Abwesenheitsassistent, Mails weiterleiten zu ext. Mail 1 nicksan 1929 22. Feb 2005, 11:45
kraemer Abwesenheitsassistent, Mails weiterleiten zu ext. Mail
Keine neuen Beiträge Outlook Mail: Adressauswahl bei neuem Mail gestört 10 swissbird 912 19. Feb 2005, 15:49
macdeal Adressauswahl bei neuem Mail gestört
Keine neuen Beiträge Outlook Mail: Standard Dateiendung bei Speichern von E-Mails ändern 5 S.Thielen 4414 02. Feb 2005, 12:04
kraemer Standard Dateiendung bei Speichern von E-Mails ändern
Keine neuen Beiträge Outlook Mail: Mails in Extra Ordner speichern. 4 Jason 2540 30. Jan 2005, 14:51
Christi@n Mails in Extra Ordner speichern.
Keine neuen Beiträge Outlook Mail: Wie schreibe ich eine html - Mail mit outlook 2 Mike020174 13305 21. Jan 2005, 02:35
Gast Wie schreibe ich eine html - Mail mit outlook
Keine neuen Beiträge Outlook Mail: manuell mail verschicken 2 redrogue 801 04. Jan 2005, 19:13
redrogue manuell mail verschicken
 

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