Guten Tag,
wieder ein Namenloser der eine unbekannte Notesversion einsetzt ;)
Das MailDbName = Left$(UserName, 1) & Right$(UserName, _
(Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
Set Maildb = Session.GetDatabase("", MailDbName)
If Maildb.IsOpen = True Then
Else: Maildb.OpenMail
End If
Ein "van den Ende" würde Dein Script z.B. nicht verstehen. Außerdem ist MAILDB.OPENMAIL ausreichend. Notes kennt seine Mail-DB.
Du kannst auch ohne HTML eine optisch ansprechende Mail bauen, ich selbst habe noch nie HTML genutzt.
Meine Methode besteht in den Richtextstyles, die reichen mit Farbe, größe, Fett, etc. i.d.R. aus.
Die Frage An welchen Stellen muss ich meinen Code ändern, dass ich diese geplanten Formatierungen vornehmen kann.
läßt sich nicht so einfach mit "hier" beantworten, da Du nicht angibst, was Du wie formatieren möchtest.
Ergo mehr Input, mehr Output.
Und noch mehr mit Namen.
VG,
Axel
Hallo Uwe,
sorry, Deinen Namen habe ich vor dem Code glatt überlesen.
In Deinem Fall musst Du wirklich kein HTML verwenden, da reicht RichText aus.
Hier als Anfangsgerüst
Dim richStyle As NotesRichTextStyle
Dim richStyleN As NotesRichTextStyle
Set richStyle = Session.CreateRichTextStyle
richStyle.NotesColor = COLOR_RED
Set richStyleN = Session.CreateRichTextStyle
richStyleN.NotesColor = COLOR_Dark_BLUE
Dim rtitem as NotesRichTextItem
Set rtitem = New NotesRichTextItem( memo, "Body")
Call rtitem.AppendStyle(richStyleN)
Call rtitem.AppendText(.......)
Call rtitem.AppendStyle(richStyle)
Call rtitem.AppendText(.......)
Call rtitem.AddNewLine(1)
Viel Erfolg.
VG,
Axel
Hallo zusammen,
wie bereits angekündigt, kommt nun mein Code. Leider finde ich keine weiteren Formatierungs-Codes. Würde gerne noch weitere Formatierungen vornehmen, wie z. B. Schrift, Farbe, Schriftgröße, usw. - vielleicht kann mir hier noch jemand ein paar Hinweise geben.
Viele Grüße
Uwe
'Email über Lotus mit formatierten Rich Text zusammengestellt
Dim Session As Object
Dim Maildb As Object
Dim MailDbName As String
Dim Maildoc As Object
Dim vCopy As Variant
Dim rtItem As Object
Dim rtStyle As Object
Dim Betreff As String
Dim Zeile1 As String
Dim Zeile2a As String
Dim Zeile2b As String
Dim Zeile2c As String
Dim Zeile2d As String
Dim Zeile2e As String
Dim Zeile3a As String
Dim Zeile3b As String
Dim Zeile3c As String
Dim Zeile4 As String
Dim Zeile5a As String
Dim Zeile5b As String
Dim Zeile6 As String
Dim Zeile7 As String
Dim Zeile8 As String
Dim Zeile9 As String
Dim Zeile10 As String
Dim Zeile11 As String
Dim Empfänger As String
Dim Kopie As String
'Email wird definiert
Empfänger = "email 1"
Kopie = "email 2"
Betreff = "Telefonzeit - " & Cells(17, 3) & ", " & Cells(15, 3)
Zeile1 = "Hallo " & Cells(b, 16) & ","
Zeile2a = "Sie telefonieren heute in der Zeit von "
Zeile2b = Cells(b, 10)
Zeile2c = " Uhr bis "
Zeile2d = Cells(b, 11)
Zeile2e = " Uhr"
Zeile3a = "im Büro: "
Zeile3b = Cells(b, 12)
Zeile3c = " für das Thema: "
Zeile4 = Cells(b, 5)
Zeile5a = "Bitte beachten Sie dabei folgende Besonderheiten: "
Zeile5b = Cells(b, 13)
Zeile6 = "Eventuelle Änderungen aufgrund Personalverschiebungen"
Zeile7 = "werden Ihnen gesondert mitgeteilt."
Zeile8 = "Bitte melden Sie sich rechtzeitig ab, damit Sie sich"
Zeile9 = "auf das zu behandelnde Thema vorbereiten können."
Zeile10 = "Viel Spaß und Erfolg beim telefonieren!!!"
Zeile11 = "Dobby"
'CREATE NOTES SESSION OBJECT
Set Session = CreateObject("notes.notessession")
'INITIALIZE DATABASE
'Set db = session.GetDatabase("", "")
Set Maildb = Session.GetDatabase("", MailDbName)
'OPEN THE MAIL DATABASE
If Maildb.IsOpen = True Then
'nothing
Else
Call Maildb.OpenMail
End If
'neues Email-Dokument erstellen
Set Maildoc = Maildb.CreateDocument
'Betreff erstellen
Call Maildoc.AppendItemValue("Subject", Betreff)
'SET DOCUMENT FORMAT TO MEMO
'Call doc.AppendItemValue("Form", "Memo")
'Empfänger der Email erstellen
Call Maildoc.AppendItemValue("SendTo", Empfänger)
'Empfänger-Kopie der Email erstellen
Call Maildoc.AppendItemValue("CopyTo", Kopie)
'Email Body erstellen
Set rtItem = Maildoc.CreateRichTextItem("Body")
Set rtStyle = Session.CreateRichTextStyle
'Zeile 1
rtItem.AppendText Zeile1 & Chr(13) & Chr(13)
'Zeile 2a
rtItem.AppendText Zeile2a
'Zeile 2b
rtStyle.Italic = True
rtStyle.Bold = True
rtItem.AppendStyle rtStyle
rtItem.AppendText Zeile2b
'Zeile 2c
rtStyle.Italic = False
rtStyle.Bold = False
rtItem.AppendStyle rtStyle
rtItem.AppendText Zeile2c
'Zeile 2d
rtStyle.Italic = True
rtStyle.Bold = True
rtItem.AppendStyle rtStyle
rtItem.AppendText Zeile2d
'Zeile 2e
rtStyle.Italic = False
rtStyle.Bold = False
rtItem.AppendStyle rtStyle
rtItem.AppendText Zeile2e & Chr(13)
'Zeile 3a
rtItem.AppendText Zeile3a
'Zeile 3b
rtStyle.Italic = True
rtStyle.Bold = True
rtItem.AppendStyle rtStyle
rtItem.AppendText Zeile3b
'Zeile 3c
rtStyle.Italic = False
rtStyle.Bold = False
rtItem.AppendStyle rtStyle
rtItem.AppendText Zeile3c & Chr(13) & Chr(13)
'Zeile 4
rtStyle.Italic = True
rtStyle.Bold = True
rtItem.AppendStyle rtStyle
rtItem.AppendText Zeile4 & Chr(13) & Chr(13)
'Zeile 5a
rtStyle.Italic = False
rtStyle.Bold = False
rtItem.AppendStyle rtStyle
rtItem.AppendText Zeile5a
'Zeile 5b
rtStyle.Italic = True
rtStyle.Bold = True
rtItem.AppendStyle rtStyle
rtItem.AppendText Zeile5b & Chr(13) & Chr(13)
'Zeile 6
rtStyle.Italic = False
rtStyle.Bold = False
rtItem.AppendStyle rtStyle
rtItem.AppendText Zeile6 & Chr(13)
'Zeile 7
rtItem.AppendText Zeile7 & Chr(13) & Chr(13)
'Zeile 8
rtItem.AppendText Zeile8 & Chr(13)
'Zeile 9
rtItem.AppendText Zeile9 & Chr(13) & Chr(13)
'Zeile 10
rtItem.AppendText Zeile10 & Chr(13) & Chr(13)
'Zeile 11
rtItem.AppendText Zeile11 & Chr(13) & Chr(13)
'Email senden an Empfänger u. in Kopie
Call Maildoc.Send(False)
'Email speichern
Call Maildoc.Save(True, True)
'säubern
Set rtStyle = Nothing
Set rtItem = Nothing
Set Maildoc = Nothing
Set Maildb = Nothing
Set Session = Nothing
ich habe mich da an Deinen Code von vor ein paar Tagen gehalten.
Dim rtStyleFarbe1 As Object
Set rtStyleFarbe1 = Session.CreateRichTextStyle
rtSteyleFarbe1.NotesColor = COLOR_RED
rtItem.AppendStyle rtStyle Farbe1
Diese Dinge habe ich dann mit vielen Veränderungen probiert, habe aber
fast immer einen Debuggen erhalten, bzw. ist die Zeile nicht rot gefärbt.
Was sagst Du.
Gruß
Uwe
Hallo Peter,
hallo an alle anderen hier im Forum,
ersteinmal vielen Dank für den Beitrag - genauso, wie Du es beschrieben hast ist es mir ergangen - komme aus der Welt des MS-Office und versuche mich hier zurecht zufinden. Aber es wird von Tag zu Tag besser.
Mein Problem habe ich jetzt gelöst und Dein Ansatz war hier genau richtig.
Ich hoffe mein Beitrag hilft vielen Excel- u. Lotusanwendern weiter.
Viele Grüße
Uwe
Hier nochmal ein Ausschnitt aus meinem Code für die Farbe und Schriftgröße:
'Zeile 3b
rtStyle.Italic = True
rtStyle.Bold = True
rtStyle.NotesColor = 2 'Schriftfarbe in Rot
rtStyle.FontSize = 20 'Schriftgröße 20
rtItem.AppendStyle rtStyle
rtItem.AppendText Zeile3b