Hallo
diese Makro sollte ein Notes-Mail versenden. Der Text sollte aus Fixbreiten-Buchstaben bestehen (zB Courier).
Der Stil (zB Bold) und die Schriftgröße lassen sich einstellen, die Schriftart selbst aber nicht.
Kann mir jemand helfen, den Fehler zu finden ? Besten Dank im Voraus. JC.
Hier der Code :
Sub Send_Mail()
Dim Maildb As Object
Dim MailDoc As Object
Dim session As Object
Dim RichTextitem As Object
Set session = CreateObject("Notes.NotesSession")
Set Maildb = session.CurrentDatabase
Set MailDoc = Maildb.createDocument
Dim rts As Object
Set rts = session.CreateRichTextStyle
Dim rti As Object
Set rti = MailDoc.CreateRichTextItem("Body")
BodyText = ""
BodyText = BodyText & "*************************************************************************" & vbCrLf
BodyText = BodyText & "* dieser text dient nur als beispiel *" & vbCrLf
BodyText = BodyText & "* Buchstaben und Leerzeichen sollten die gleiche Breite haben ... *" & vbCrLf
BodyText = BodyText & "* 'Bold'-Style und 'FontSize'-Style funktionieren *" & vbCrLf
BodyText = BodyText & "* 'Font-Size'-Style funktioniert nicht *" & vbCrLf
BodyText = BodyText & "*************************************************************************" & vbCrLf
rts.NotesFont = FONT_COURIER
rts.Bold = True
rts.FontSize = 16
Call rti.appendstyle(rts)
Call rti.appendtext(BodyText)
Recipient = "jc@xxxxx.com"
With MailDoc
.form = "Memo"
.sendto = Recipient
.Subject = "Antwort : xxxxx"
.ReturnReceipt = "1"
End With
MailDoc.SaveMessageOnSend = True
MailDoc.SEND 0, Recipient
Set Maildb = Nothing
Set MailDoc = Nothing
Set session = Nothing
Set rti = Nothing
Set rts = Nothing
MsgBox "Datenversand erfolgreich !", vbOKOnly
End Sub
|