also folgendes Problem zur einfachen Verwaltung der Mails im Outlook habe ich folgenden Code zur Verfügung:
Sub Speichern()
Dim myItems As Object, myItem As Object
Dim myOrt As String, myAbsenderName As String
Dim myOlApp As New Outlook.Application
Dim myOlExp As Outlook.Explorer
Dim myOlSel As Outlook.Selection
On Error Resume Next
'nur mit selektierten Mails arbeiten...
Set myOlExp = myOlApp.ActiveExplorer
Set myOlSel = myOlExp.Selection
'MsgBox ("Bitte die automatische Entschlüsselung (PGP) abschalten. (Bei PGP unter 'Options - _
> Email')")
'mit allen selektierten Mails...
For Each myItem In myOlSel
If (Left(myItem.Subject, 1) 0) Then ' Am Anfang des Betreffs steht keine "0" -> Mail _
bearbeiten
strdate = myItem.SentOn
newdate = Format(strdate, "yyyy/mm/dd")
newdate2 = Format(strdate, "ss")
If (InStr(myItem.SenderName, ",") = 0) Then
Set PunkPos = Nothing
myAbsenderName = (Left(myItem.SenderName, InStr(myItem.SenderName, "@") - 1))
myAbsenderName = Right(myAbsenderName, Len(myAbsenderName) - InStr(myAbsenderName, _
_
".")) & ", " & Left(myAbsenderName, InStr(myAbsenderName, ".") - 1)
Else 'Für alle VW-Mails (Nachname, Vorname)
myAbsenderName = (Left(myItem.SenderName, InStr(myItem.SenderName, ",") - 1))
End If
'bearbeiteten Absendername in Grossbuchtsaben umwandeln
'myAbsenderName = StrConv(myAbsenderName, vbUpperCase)
strname = newdate & ", " & myItem.Subject & ", " & myAbsenderName
'neu vom 12.4.2005, Leerzeichen und Sonderzeichen ersetzen, damit Fileablage möglich _
wird:
strname = Replace(strname, " ", " ")
strname = Replace(strname, "ü", "ue")
strname = Replace(strname, "ö", "oe")
strname = Replace(strname, "ä", "ae")
strname = Replace(strname, "Ü", "Ue")
strname = Replace(strname, "Ö", "Oe")
strname = Replace(strname, "Ä", "Ae")
strname = Replace(strname, "ß", "ss")
strname = Replace(strname, "/", "-")
strname = Replace(strname, "\", "-")
strname = Replace(strname, "?", "_")
strname = Replace(strname, "*", "_")
strname = Replace(strname, """", "'")
strname = Replace(strname, ">", "_")
strname = Replace(strname, "
Diesen Code habe ich auf einer Schaltfläche hinterlegt. Wenn ich nun während eine Mail markiert ist die Schaltfläche betätige soll Datum, Betreff, Absendername angezeigt werden.
Funktioniert auch soweit, allerdings steht bei Name immer nur der Nachname?!
Ist das ein Fehler im Programm oder in meinem Outlook? Ich hoffe mir kann jemand behilflich sein?
Danke schonmal
LG Hans