' Erweiterte Mail-Einstellungen
    With .Fields
      ' SMTP-AUTH aktivieren
      .Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", 1)
 
      ' Benutzername und Kennwort festlegen
      .Add("http://schemas.microsoft.com/cdo/configuration/sendusername", _
        "1059-770")
      .Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", _
      "ro-help")
 
      ' ggf. noch Server-Port festlegen
      .Add("http://schemas.microsoft.com/cdo/configuration/smtpserverport", 25)
    End With
  End With

MfG
Visual Studio .Net Team Suite 2008 - Meine neue lieblings IDE