Wenn GetMailAddress woanders nichts findet (und die Items, die zuerst gesucht werden, sind eher ungewöhnlich), nimmt es FullName. Da gibt es auch Irritationen, wenn man R5-Personen-Doks exportiert (structured text) und dann R6 reichlich komische Adressen verwendete via Zugriff auf das Adressbuch, weil R5 FullName offensichtlich deutlich anders behandelte). Das hat aber natürlich mit Deinem Problem nichts zu tun.
Function GetMailAddress() As String
Set pNote = db.getprofiledocument("tempvars")
CurrentMailingAddress = pNote.Pmailaddress
If note.Type(0) = "Person" Then
If CurrentMailingAddress(0) = "MA" Then
GetMailAddress = note.MailAddress(0)
Elseif CurrentMailingAddress(0) <> "" Then
GetMailAddress = CurrentMailingAddress(0)
Else
GetMailAddress= note.FullName(0)
End If
Elseif note.Type(0) = "Group" Then
GetMailAddress = note.ListName(0)
Else
GetMailAddress=""
End If
pNote.Pmailaddress = ""
Call pNote.save(False,False)
End Function
Diese Funktion sagt ja auch genau dieses - wenn Type = "Person" ist, dann wird zumindest Fullname gefunden, wenn nichts anderes gefunden wird.
Bernhard