[Coffeehouse] Email mit CDO und Exchange

[Kiefer, Christian, HPO]

Title: Email mit CDO und Exchange

Ich will mit CDO und Exchange ein Email versenden, klappt auch alles, nur habe
ich nicht herausfinden k�nnen wie ich die E-Mail als HTML-Mail versenden kann.

Bei Microsoft bin ich nicht f�ndig geworden.

Quellcode:

    Const cStrServer        = "xxx"
    Const cStrMailbox       = "xxx"
    bstrProfileInfo = cStrServer & vbLf & cStrMailbox

    Set objSess = Server.CreateObject("mapi.session")  
      objSess.Logon "", "", False, True, 0, True, bstrProfileInfo

    Set objFBMess = objSess.Outbox.Messages.Add
      objFBMess.Subject = "Betreff"
      objFBMess.Text    = "Mailtext"                   
     
    Set objRecips = objFBMess.Recipients
      objRecips.Add ("[EMAIL PROTECTED]")
      objRecips.Resolve
      objFBMess.Send
      objSess.Logoff
     
  Set objFBMess = nothing
  Set objRecip = nothing
  Set objSess = nothing  

Christian