Dim iPer As New CDO.Person
iPer.DataSource.Open("LDAP://" & "CN=emailservice,OU=InfoVersand,OU=AD" & _
  "Verwaltung,DC=KVNW,DC=local")
Dim iMbx As CDO.Imailbox
iMbx = iPer ' geht nicht, da keine implizite Konvertierung von CDO.Person in 
' CDO.IMailbox möglich

    Public Sub cdo()
        Dim oMsg As CDO.Message = New CDO.Message
        oMsg.From = "email@web.de"
        oMsg.To = "xxx@web.de"
        oMsg.Subject = "CdoSys HTML mail in VB.NET (pickup)"
 
        ' Set configuration.
        Dim iConfg As CDO.Configuration = New CDO.Configuration
 
        Dim oFields As ADODB.Fields
        oFields = iConfg.Fields
 
        Dim oField As ADODB.Field
 
        oField = oFields( _
          "http://schemas.microsoft.com/cdo/configuration/sendusing")
        oField.Value = 2   ' CDO.CdoConfiguration.cdoSMTPServer
 
        oField = oFields( _
          "http://schemas.microsoft.com/cdo/configuration/smtpserver")
        oField.Value = "exchange03"
 
        oFields.Update()
        oMsg.Configuration = iConfg
 
        oMsg.Send()
 
        oMsg = Nothing
        iConfg = Nothing
        oFields = Nothing
        oField = Nothing
    End Sub