Zeichsatz Arial vorbesimmen
01.01.2008 15:47:00
Wolfgang
wie müßte der untenstehende Code ergänzt werden, wenn der Text aus Textbox 3 in strBody bzw. der gesamte Text mit dem Zeichensatz Arial in Outlook erscheinen soll (ein Teil erscheint schon jetzt komischerweise in Arial, nur i. Body nicht) ? Danke schon jetzt für die Rückmeldungen.
Gruß - Wolfgang
Sub Senden(AWS As String)
Dim Nachricht As Object, OutApp As Object
Dim empfänger As String
Dim Kopie As String
Dim Blindkopie As String, strBody As String
Blindkopie = TextBox6.Text
Kopie = TextBox5.Text
empfänger = TextBox1.Text
strBody = Replace(TextBox3.Text, vbCrLf, "
") ' Zeilenumbrüche in HTML übersetzten!
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.GetInspector
.To = empfänger
.cc = Kopie 'neu
.bcc = Blindkopie 'neu
.Subject = TextBox2.Text
.HTMLbody = strBody & .HTMLbody
.Attachments.Add AWS
.Display
End With
Set OutApp = Nothing
Set Nachricht = Nothing
Unload Me
End Sub