Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Lotus Notes-Automatisierung: Text formatieren
zurück: Odbc Verbindung zu Lotus notes weiter: Access ODBC Oracle Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
HaVoC
Sick Bastard


Verfasst am:
09. Jan 2007, 15:31
Rufname:

Lotus Notes-Automatisierung: Text formatieren - Lotus Notes-Automatisierung: Text formatieren

Nach oben
       Version: (keine Angabe möglich)

Hallo!

Gibt es eine Möglichkeit bei der Automatisierung von Lotus Notes bzw. dem Mailversand über Lotus Notes den Text zu formatieren (unterstrichen, fett, Schriftgröße)?
HaVoC
Sick Bastard


Verfasst am:
09. Jan 2007, 16:48
Rufname:


AW: Lotus Notes-Automatisierung: Text formatieren - AW: Lotus Notes-Automatisierung: Text formatieren

Nach oben
       Version: (keine Angabe möglich)

Das ganze funktioniert über ein RichTextItem und einem RichTextItemStyle:
Code:
'Visual Basic
    Dim style As Object

    '[...]
    rtItem = notesDoc.CREATERICHTEXTITEM("BODY")
    style = notesObj.CREATERICHTEXTSTYLE()
    style.Bold = 1
    style.FontSize = 8
    rtItem.APPENDSTYLE(style)
    rtItem.APPENDTEXT("Das ist ein Test")
    rtItem.ADDNEWLINE(1)
    '[...]
Für mehr Code oder eine detailliertere Beschreibung einfach hier posten oder PM senden
Gast



Verfasst am:
31. Jan 2007, 13:34
Rufname:

AW: Lotus Notes-Automatisierung: Text formatieren - AW: Lotus Notes-Automatisierung: Text formatieren

Nach oben
       Version: (keine Angabe möglich)

ich benötige zwar keine formatierung, sondern eher eine möglichkeit,
einen automatisierten Import von Lotus Notes Mails >> Excel
über VBA zu realisieren - wäre aber an weiteren Code interessiert.

Vielleicht hilft's ja weiter Smile
tobes
Access-Probleme-Haber =)


Verfasst am:
15. Jun 2007, 15:29
Rufname:
Wohnort: Mannheim

AW: Lotus Notes-Automatisierung: Text formatieren - AW: Lotus Notes-Automatisierung: Text formatieren

Nach oben
       Version: (keine Angabe möglich)

Hi allerseits,

wie geht das genau mit dem formatieren?
Wie ist z.B. im Code oben das
notesObj bei style = notesObj.CREATERICHTEXTSTYLE()
definiert?? Ist das die Datenbank, das Dokument oder gar gesamt Notes?

Bei mir klappt keines der genannten Objekte, .. !?

Freue mich auf die Infos! Ist dringend ... :-/

Danke & Gruß

_________________
grüße

tobes =)
Anjali
Neuling


Verfasst am:
04. Aug 2011, 11:42
Rufname:


AW: Lotus Notes-Automatisierung: Text formatieren - AW: Lotus Notes-Automatisierung: Text formatieren

Nach oben
       Version: (keine Angabe möglich)

Anjali am 04. Aug 2011 um 10:28 hat folgendes geschrieben:
Der Thread ist schon älter, aber da ich mich an diesem Thema versucht habe, anbei meine Erfahrung:
Bei mir hat es zunächst leider nicht funktioniert. Ich habe es bei mir wie folgt geändert:
Code:
    Set rtitem = objNotesMailDoc.CREATERICHTEXTITEM("Body")
    Set style = objNotes.CREATERICHTEXTSTYLE()
    style.Bold = 0              '0 für normal ; 1 für fett
    style.FontSize = 14       'angabe der schriftgroeße
    Call rtitem.APPENDSTYLE(style)
    Call rtitem.appendtext(strtext)
strtext ist bei mir der String der den eigentlichen Mailtext enthält.

Viele Grüße

und noch mal ergänzt:
Code:
    Dim objstyle, objcolour As Object
    Dim intcol, intfont, intsize, intbold, intund, intbld As Integer
   
    '[...]
    Set objstyle = objNotes.CREATERICHTEXTSTYLE()
    Set objcolour = objNotes.CreateColorObject()
    intcol = objcolour.setrgb(0, 0, 0)  'später verwenden um je nach mail variabel zu gestalten
    intfont = 4                         'später verwenden um je nach mail variabel zu gestalten
    intsize = 11                        'später verwenden um je nach mail variabel zu gestalten
    intund = 0                          'später verwenden um je nach mail variabel zu gestalten
    intbld = 1                          'später verwenden um je nach mail variabel zu gestalten
    objstyle.NotesFont = intfont     '4 = Courier, 1 = HELV, 0 = roman, 255 = no change(default)
    objstyle.NotesColor = intcol
    objstyle.FontSize = intsize
    objstyle.Bold = intbld          '0 für normal, 1 für fett
    objstyle.Underline = intund     '0 für normal, 1 für unterstrichen
    'anwenden
    Call rtitem.APPENDSTYLE(objstyle)
    Call rtitem.appendtext(strText)
ich habe mir die Werte in Variablen abgelegt um später je nach Aufruf mit Hilfe von z.B. DLookup in Referenztabelle das je nach Mail variabel gestalten zu können. Andernfalls einfach statt der Variablen im objstyle.[...] direkt den Wert hinterlegen.

Viele Grüße
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Microsoft Access und MS SQL Server: RTF Text von SQL DB in Access 2010 Anzeigen 1 proit 1491 21. Dez 2011, 11:28
dwinkelbach RTF Text von SQL DB in Access 2010 Anzeigen
Keine neuen Beiträge Microsoft Access und MS SQL Server: Count in einem Feld mit Text auf SQL 1 Werwolfli 809 26. Okt 2011, 22:50
Bitsqueezer Count in einem Feld mit Text auf SQL
Keine neuen Beiträge Microsoft Access und andere Datenbank-Server: Odbc Verbindung zu Lotus notes 2 DieterEsser 9425 28. Jul 2011, 13:03
Gast Odbc Verbindung zu Lotus notes
Keine neuen Beiträge Microsoft Access und MySQL: text+bild automatisch in wordvorlage 0 .lio 1305 08. Feb 2011, 12:57
.lio text+bild automatisch in wordvorlage
Keine neuen Beiträge Microsoft Access und MySQL: MySQL Datum formatieren 1 Gast 2100 26. Dez 2010, 10:01
trekking MySQL Datum formatieren
Keine neuen Beiträge Microsoft Access und andere Datenbank-Server: Lotus Notes mit Access auslesen (ODBC) 1 Gast 10682 28. Okt 2010, 17:19
furoh Lotus Notes mit Access auslesen (ODBC)
Keine neuen Beiträge Microsoft Access und MS SQL Server: INSERT INTO DB (Textfeld) SELECT ('Text mit Zeilenumbruch') 7 jcl 6319 14. Aug 2010, 14:34
Bitsqueezer INSERT INTO DB (Textfeld) SELECT ('Text mit Zeilenumbruch')
Keine neuen Beiträge Microsoft Access und andere Datenbank-Server: Zugriffe auf Lotus Notes Datenbanken 3 Joma 10504 11. Aug 2008, 16:03
dweiner Zugriffe auf Lotus Notes Datenbanken
Keine neuen Beiträge Microsoft Access und MS SQL Server: SQL cube mit text als measure in access browsen 0 bardia 1779 04. Sep 2007, 16:41
bardia SQL cube mit text als measure in access browsen
Keine neuen Beiträge Microsoft Access und MS SQL Server: Format für Text mit Sonderzeichen 0 Marwid2 1149 16. Aug 2006, 13:07
Marwid2 Format für Text mit Sonderzeichen
Keine neuen Beiträge Microsoft Access und MS SQL Server: Grafik in EXCEL aus dem VBA Code formatieren 4 Gast 2647 27. Jun 2006, 11:06
Gastserver Grafik in EXCEL aus dem VBA Code formatieren
Keine neuen Beiträge Microsoft Access und andere Datenbank-Server: Vergleich Access mit Lotus Notes 3 Gast 3010 18. Mai 2006, 11:23
Gast Vergleich Access mit Lotus Notes
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Expression Web Forum