habe folgenden Quellcode:
Sub Speichern()
'Version 1.1 vom 12.4.2005, überarbeitet durch Ch. Steinmann, SPiCE@EE
'Deklaration
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, "dd.mm.yyyy")
newdate2 = Format(strdate, "ss")
If (InStr(myItem.SenderName, ",") = 0) Then 'Für alle Hella-Mails (Vorname.Nachname@ _
volkswagen.de)
'Set PunktPos = Nothing
myAbsenderName = (Left(myItem.SenderName, InStr(myItem.SenderName, "@") - 1))
myAbsenderName = (Right(myAbsenderName, Len(myAbsenderName) - InStr(myAbsenderName, _
".")))
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, ">", "_")
strname = Replace(strname, "
Der Code ist für Outlook gedacht. Wenn ich die Schaltfläche betätige soll bei der angewählten Mail das Datum, der Betreff und der Absender stehen!
Funktioniert alles bis auf den Absender: da steht immer nur der Nachname?
Ich hätte das aber gern im Format: Nachname, Vorname
Könnte mir da jemand behilflich sein? Danke Euch schon mal
LG Hans