Verknüpfung von Neuer Mail mit Eigenschaften

Hallo geschätzte Kollegen,

ich möchte gerne eine Verknüpfung auf dem Desktop "aller" Mitarbeiter ablegen, die sich Mail2Fax nennt.
Wir senden eine Mail an Zielrufnummer@Fax.Domainname. Die E-Mail wird dann von der TK-Anlage umgewandelt in ein Fax und demjenigen zugestellt.

Die Funktion klappt aber nur ordentlich, wenn wir keine HTML Codes in der E-Mail haben, sondern "Nur-Text".
(Neue Mail > "Text formatieren" > "Aa Nur Text")

Daher möchte ich gerne eine Verknüpfung (mailto, Subject..) ablegen, die das Empfänger-Feld und den Betreff befüllen. Das habe ich soweit erledigt.
Kann ich dieser Verknüpfung auch mitgeben, dass die Eigenschaft der Mail nicht HTML, sondern "Nur Text" ist? Das konnte ich nicht lösen oder herausfinden.

Gerne nehme ich auch andere Vorschläge an.

Vielen Dank für die Hilfe.

Viele Grüße

dim strNumber, objMail
' Nummer abfragen  
strNumber = InputBox("Bitte Faxnummer eingeben","Faxnummer","0123456")  
With CreateObject("Outlook.Application")  
        ' neue Mail erstellen  
	Set objMail = .CreateItem(0)
	With objMail
                ' Bodyformat auf PlainText festlegen  
		.BodyFormat = 1
                ' Empfänger festlegen  
		.To = strNumber & "@Fax.Domainname.tld"  
                 ' Betreff festlegen  
		.Subject = "Betreff"  
                ' Body festlegen  
		.Body = "Dein Body"  
                ' Mail anzeigen  
		.Display
	End With
End With

Function ProcessToForeground(strProcess)
	Set objShell = CreateObject("Wscript.Shell")  
	Set colProcessList = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2").ExecQuery("Select * from Win32_Process where Name = '" & strProcess & "'")  
	For Each objProcess in colProcessList
		objShell.AppActivate objProcess.Handle
	Next
	Set colProcessList = Nothing
	Set objShell = Nothing
End Function
ProcessToForeground "outlook.exe"