Dim nResult As Long
 
  With sevSMTP1
    .ServerName = "..."
    .ServerPort = 25
    .SenderEMail = "info@tools4vb.de"
    .SenderName = "Dieter Otter"
    .UserName = "..."
    .Password = "..."
    .SMTPAUTH = True
 
    .Recipient = "dieter@vbarchiv.de"
    .Subject = "Test"
    .Message = "Test"
 
    .AutoZIP = 10
    .TempPath = "d:\temp"
    .AttachmentClear
    .AttachmentAdd "d:\temp\projekt1.exe"
 
    If .Connect Then
      nResult = .SendMail()
      If nResult < 1 Then
        MsgBox "Fehler:" & CStr(.SMTPError) + ", " + .SMTPErrorText + vbCrLf + _
          .LastResponse
      Else
        MsgBox "Mail wurde versandt!"
      End If
    Else
      MsgBox "Fehler beim Herstellen der Verbindung." + vbCrLf + .LastResponse
    End If
    .Disconnect
  End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de