Domino 9 und frühere Versionen > ND7: Administration & Userprobleme
champion:
Hallo Axel,
vielen Dank für die schnelle Antwort!!!
Ich werde den Code morgen mal ausprobieren - wie gesagt, Lotus habe ich nur dienstlich zur Verfügung.
Werde mich auf jeden Fall nochmals melden.
Viele Grüße
Uwe
champion:
Hallo Axel,
leider kann ich nicht warten bis morgen und bescäftige mich daher mit Deinem Anfangsgerüst.
Klar, ich muss zuerst die variablen deklarieren und entsprechend aufstellen.
Im Bereich des Aufrufs (=Call) wird der Text in Klammern dann in dunkel blau und in der nächsten Zeile in rot dargestellt.
Leider habe ich noch keine Ahnung welche Bereiche meines Codes richtig sind und stehen bleiben können.
Für Deine Hilfe wäre ich Dir sehr dankbar.
Uwe
champion:
Hallo zusammen,
ich habe da mal dann ein wenig rum probiert und in den Tiefen des www ein paar weitere Ansatzpunkte gefunden.
Es funktioniert!!!
Den Code werde ich noch etwas aufbereiten und dann in Kürze hier für alle veröffentlichen.
Viele Grüße
Uwe
champion:
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
--- Code: ---'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
--- Ende Code ---
koehlerbv:
Hallo Uwe,
die hausgemachten Schriftattribute, die Du verweden kannst (alle, die Du angegeben hast), findest Du in der Dokumentation zum DominoDesigner unter "NotesRichTextStyle Class". Mit allen parameter, Beispielen etc. pp.
HTH,
Bernhard
Navigation
[0] Themen-Index
[#] Nächste Seite
[*] Vorherige Sete
Zur normalen Ansicht wechseln