Mine emails skal være plain text, via vbscribt.

Hej,
jeg har lavet noget kode som ser således ud:

Dette ligge på selve formen:

Dim itm
Dim pgs
Dim pg
Dim ctls
Dim rs

Function Item_Open()
  on error resume next   
  Dim CurItem
  Set itm = Item.GetInspector
  Set pgs = itm.ModifiedFormPages
  Set pg = pgs(1)
  Set ctls = pg.Controls   
  Set CurItem = itm.CurrentItem
  CurItem.SentOnBehalfOfName = "Support"
  CurItem.BodyFormat = olFormatPlain
itm.BodyFormat = olFormatPlain


  'Body-Tekst.
  CurItem.Body = vbcrlf & vbcrlf & "Hvis du har yderligere spørgsmål, så er du velkommen til at kontakte os!" & vbcrlf & vbcrlf & vbcrlf&_
  "Venlig hilsen / Best Regards," & vbcrlf &_
  "Jakob Olsen"

  set WshShell = CreateObject("WScript.Shell")
  WshShell.SendKeys "^k", True

  If err.number<>0 then
    err.clear
  End If
End Function

Function btnSupport_Click()
  Dim CurItem
  Set CurItem = itm.CurrentItem
  CurItem.SentOnBehalfOfName = "Virus112 Support"
  set WshShell = CreateObject("WScript.Shell")
  WshShell.SendKeys "^k", True
End Function 

Dette ligge på knappen som starter formen:

Sub RunMyForm()
  Dim myOlApp As Application
  Dim myNameSpace As NameSpace
  Dim myFolder As MAPIFolder
  Dim myItems As Items
  Dim myItem As Object

  Set myOlApp = CreateObject("Outlook.Application")
  Set myNameSpace = myOlApp.GetNamespace("MAPI")
  Set myFolder = myNameSpace.GetDefaultFolder(olFolderNotes)
  Set myItems = myFolder.Items
  Set myItem = myItems.Add("IPM.Note.Support")
  myItem.Display

  Set myOlApp = Nothing
  Set myNameSpace = Nothing
  Set myFolder = Nothing
  Set myItems = Nothing
  Set myItem = Nothing
End Sub

Problemet er at emailen åbnes i Rich Text Format...
Jeg vil have den skal være PLAIN TEXT
Åbner jeg en almindelig email (med knappen New) så er den fin i plain text.
Jeg bruger Outlook 2000.