Private Declare Function DeleteFile Lib "kernel32.dll" _
   Alias "DeleteFileA" ( _
   ByVal lpFileName As String) As Long
 
Private Declare Function CopyFile Lib "kernel32.dll" _
   Alias "CopyFileA" ( _
   ByVal lpExitingFileName As String, _
   ByVal lpNewFileName As String, _
   ByVal bFailIfExists As Long) As Long

Public Function DateiCopy(ByVal sDatei As String) As String
    Dim Retval          As Long
    Dim FromDatei       As String
    Dim ToDatei         As String
 
    If sDatei = "Angebot" Then
       FromDatei = sMailPfad & "Angebot.txt"   ' 
       ' C:\CtDaten\LL_User1\PDFDaten\Angebot.txt
       ToDatei = sMailPfad & "Maildaten.txt"    
       Retval = CopyFile(FromDatei, ToDatei, 0)
    Else
       If sDatei = "Auftrag" Then
          FromDatei = sMailPfad & "Auftrag.txt"
          ToDatei = sMailPfad & "Maildaten.txt"
          Retval = CopyFile(FromDatei, ToDatei, 0)
       Else
          If sDatei = "Rechnung" Then
             FromDatei = sMailPfad & "Rechnung.txt"
             ToDatei = sMailPfad & "Maildaten.txt"
             Retval = CopyFile(FromDatei, ToDatei, 0)
          Else
             If sDatei = "Zimmerliste" Then
                FromDatei = sMailPfad & "Zimmerliste.txt"
                ToDatei = sMailPfad & "Maildaten.txt"
                Retval = CopyFile(FromDatei, ToDatei, 0)
             End If
          End If
       End If
    End If
    If Retval = 0 Then
       MsgBox "Die Maildatei konnte nicht kopiert werden" & " " & FromDatei
    End If
End Function