Public Function SMSSend(sNetz As String, sToNr As String, sText As String, _
  sFrom As String) As Long
 
Dim sParams() As String, tConf As typConfig, SMTP As Object
 
On Error GoTo err_handler
 
        Set SMTP = CreateObject("sevMailActiveX.sevSMTP")
 
        sParams = Split(INIRead("SMS:EMail2SMS", "SMTPHost", , INIFile), ":")
 
        If UBound(sParams) >= 0 Then
            SMTP.ServerName = sParams(0)
            If UBound(sParams) > 1 Then SMTP.ServerPort = sParams(1)
        End If
        tConf.SMSNumber = ConvertNetz(sNetz) & sToNr
        tConf.SMSText = sText
        tConf.SMSFrom = sFrom
        tConf.SMTPHost = SMTP.ServerName
        tConf.SMTPPort = SMTP.ServerPort
 
 
        SMTP.Subject = ReplaceVars(INIRead("SMS:EMail2SMS", "Subject", , _
          INIFile), tConf)
        SMTP.SenderEMail = ReplaceVars(INIRead("SMS:EMail2SMS", "Sender", , _
        INIFile), tConf)
        SMTP.Recipient = ReplaceVars(INIRead("SMS:EMail2SMS", "Reciepent", , _
        INIFile), tConf)
        SMTP.Message = ReplaceVars(INIRead("SMS:EMail2SMS", "Message", _
        "%text%", INIFile), tConf)
 
        SMTP.Username = INIRead("SMS:EMail2SMS", "Username", , INIFile)
        SMTP.Password = VernamCode(Base64DecodeAscii(INIRead("SMS:EMail2SMS", _
          "Password", , INIFile)), GetHardcodeKey("pwd"))
 
 
        MsgBox ("ServerAdress =  " & SMTP.ServerName & ":" & SMTP.ServerPort & _
          vbCrLf & _
                "Subject =  " & SMTP.Subject & vbCrLf & _
                "SenderEMail =  " & SMTP.SenderEMail & vbCrLf & _
                "Recipient =  " & SMTP.Recipient & vbCrLf & _
                "Message =  " & SMTP.Message & vbCrLf & _
                "Username =  " & SMTP.Username & vbCrLf & _
                "Passwort =  " & SMTP.Password)
 
 
        If SMTP.ServerName <> "" And SMTP.SenderEMail <> "" And _
          SMTP.Recipient <> "" Then
            If SMTP.Connect() Then
                If SMTP.SendMail() < 1 Then
                    SMSSend = SMTP.SMTPError
                    LastError = SMTP.SMTPError
                    LastErrorText = SMTP.SMTPErrorText
                End If
                SMTP.Disconnect
            Else
                SMSSend = 999
                LastError = 999
                LastErrorText = SMTP.SMTPErrorText
            End If
        End If
Exit Function
 
err_handler:
WriteError Err.Number, "Server returned error: " & Err.Description
MsgBox Err.Description & " - " & Err.Number
SMSSend = LastError
Resume Next
End Function

-------------------------------------------
Follow the White Rabbit !!!