OK, ich gehe mal davon aus, daß die Mail immer den gleichen Aufbau hat; die Informationen also immer an der gleichen Stelle stehen.
Jede Indormation steht aso in einer seperaten Zeile.
Sequentielles Lesen der Zeilen bis z.B. Keyword Name gefunden wird.
Dann kannst du mit der Funktion
Function parseQS(pQueryString As String, pArgName As String) As String
' Parses an arguement passed via a URL
Dim qs, arg, argval As String
qs = Ucase$(pQueryString)
arg = Ucase$(pArgName)
argval = ""
If Instr(qs, arg) > 0 Then
argval = Mid$(qs, Instr(qs, arg) + Len(arg))
End If
If Instr(argval, "&") > 0 Then
parseQS = Left$(argval, Instr(argval, "&") -1)
Else
parseQS = argval
End If
End Function
alles das Auslesen, was hinter NAME: steht
Sub Click(Source As Button)
Msgbox ParseQS("Name: Karl Klammer","Name: ")
End Sub
mußt halt eben nur statt der Konstanten im ersten Argument den String übergeben, den du eingelesen hast.
eknori