Function TransferMail(frm As Form) As Integer
'Wird aufgerufen mit: TransferMail Me
    Dim ctlQuelle As Control
    'Dim ctlZiel As Text
    Dim von As String
    Dim Datum As String
    Dim Betreff As String
    Dim Inhalt As Variant
    Dim Attach As Single
    Dim intAktuelleZeile As Integer
    Set ctlQuelle = Form!ListTakeMail
    'Set ctlZiel =
     For intAktuelleZeile = 0 To ctlQuelle.ListCount - 1
       If ctlQuelle.Selected(intAktuelleZeile) Then
            Datum = ctlQuelle.Column(0, intAktuelleZeile)
            von = ctlQuelle.Column(1, intAktuelleZeile)
            Betreff = ctlQuelle.Column(2, intAktuelleZeile)
            Inhalt = ctlQuelle.Column(3, intAktuelleZeile)
            Attach = ctlQuelle.Column(4, intAktuelleZeile)
            Exit For
        End If
    Next intAktuelleZeile
    If MsgBox("Datum:      " & Datum + Chr(13) + "Von:          " & von + Chr( _
      13) + "Betreff:     " & Betreff + Chr(13) + Chr(13) + "Inhalt:" + Chr(13) _
      & Inhalt, vbYesNo, "Diese email in die Datenbank übernehmen?") = vbYes _
      Then
      Me!RegisterStr0.Pages(0).SetFocus
      DoCmd.GoToRecord , , acNewRec
       frm_EnterCustData!CustBugShort.Value = Betreff
       frm_EnterCustData!CustBugLong.Value = Inhalt '"Email-Inhalt bitte per" & _
         "Copy & Paste übertragen"
       frm_EnterCustData!Date.Value = Datum
       If InStr(1, von, "@", 0) Then
         frm_EnterCustData!mail.Value = von
       Else
         frm_EnterCustData!Reporter.Value = von
       End If
       frm_EnterCustData!CustSuppAction.Value = "Anfrage von: " & von
       frm_EnterCustData!Cont.Value = "email"
       If Attach = -1 Then
        If MsgBox("Die email hat Anlagen." + Chr(13) + "Soll angekreuzt werden," & _
          "dass Beispieldaten vorhanden sind?", vbYesNo, "Die mail hat" & _
          "Anlagen") = vbYes Then
         frm_EnterCustData!Samplefiles.Value = True
        End If
       End If
    End If
End Function

Gru?
Christian