Email

[champion]

Hallo liebe Lotus-Gemeinde,

ich bin neu hier und nur dienstlich mit Notes unterwegs, deshalb habe ich so meine Schwieirgkeiten mit der ganzen Thematik.

Aus Excel heraus erzeuge ich eine automatisierte Email, deren Text ich aber einfach nur so wieder geben kann. An einigen Stellen hier im Forum habe ich bereits gelesen, dass ich diese Email dann in ein "HTML"-Format versenden muss, wenn ich entsprechende Formatierungen vornehmen möchte. Leider sind das noch echt Böhmische Dörfer" für mich. An welchen Stellen muss ich meinen Code ändern, dass ich diese geplanten Formatierungen vornehmen kann.

Vorab herzlichen Dank für Eure Unterstützung.

Uwe

Anbei mein Code:
     
'Email versenden
                 
                 
    Sheets("Emailversand").Select
   
                     
    'Selektion der Email-Adresse
   
    Dim b As Integer
    Dim Kopie As String
    Dim Empfänger As String
   
    b = 0
   
    'Festlegung des CC Emailversand => über die Variable Kopie
           
    Kopie = "email-Empfänger 1 ; email-Empfänger 2 ; email-Empfänger 2"
   
    'Zusammenstellung der jeweiligen Email
     
    For b = 20 To 25 Step 1   'Wert muss 25 sein - dient zur Vereinfachung beim durchlaufen der Schleife zum Test
       
        If Cells(b, 5) <> 0 Then
       
           
        Empfänger = Cells(b, 20)
   
           
        'Emailversand über Lotus Notes
       
        Dim Maildb As Object, UserName As String, MailDbName As String
        Dim MailDoc As Object, Session As Object, vCopy As Variant
        Dim myArr As Variant, i As Long
        Set Session = CreateObject("Notes.NotesSession")
        UserName = Session.UserName
        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
     
       
        Set MailDoc = Maildb.CreateDocument
        'MailDoc.Form = "Memo"
        MailDoc.SendTo = Empfänger          'Empfänger Email => Inhalt wird aus Zelle Cells(b, 20) geliefert
        MailDoc.CopyTo = Split(Kopie, ";")  'Einbindung der CC Email
           
        'MailDoc.BlindCopyTo = "Emailadresse"   'BC Email
        MailDoc.Subject = "Telefonzeit - " & Cells(12, 3) & ", " & Cells(10, 3)
        MailDoc.Body = "Hallo " & Cells(b, 16) & "," & vbCrLf & _
                            vbCrLf & _
                        "Sie telefonieren heute in der Zeit von " & Cells(b, 10) & " Uhr bis " & Cells(b, 11) & " Uhr" & vbCrLf & _
                        "im Büro: " & Cells(b, 12) & " für das Thema: " & vbCrLf & _
                            vbCrLf & _
                        Cells(b, 5) & vbCrLf & _
                            vbCrLf & _
                        "Bitte beachten Sie dabei folgende Besonderheiten: " & Cells(b, 13) & vbCrLf & _
                            vbCrLf & _
                        "Eventuelle Änderungen aufgrund Personalverschiebungen" & vbCrLf & _
                        "werden Ihnen gesondert mitgeteilt." & vbCrLf & _
                            vbCrLf & _
                        "Bitte melden Sie sich sich rechtzeitig ab, damit Sie sich" & vbCrLf & _
                        "auf das zu behandelnde Thema vorbereiten können." & vbCrLf & _
                            vbCrLf & _
                        "Viel Spaß und Erfolg beim telefonieren!!!" & vbCrLf & _
                            vbCrLf & _
                        "Dobby!!!"
        MailDoc.SaveMessageOnSend = True
        MailDoc.PostedDate = Now
        On Error GoTo Audi
        Call MailDoc.Send(False)
        Set Maildb = Nothing:    Set MailDoc = Nothing:    Set Session = Nothing
        'Exit Sub
Audi:
        Set Maildb = Nothing:    Set MailDoc = Nothing:    Set Session = Nothing

[DAU-in]

Vielleicht stehe ich gerade auf dem Schlauch:

das ist VB?

[WildVirus]

Guten Tag,

wieder ein Namenloser der eine unbekannte Notesversion einsetzt 

Das

Code

        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

ist gefährlich - was wenn einer einen Doppelnamen hat oder ein Adliger ist ? Wer nur nach einer Leerstelle sucht und meint, danach sinnvoll trennen zu können, hat m.E. keine Ahnung von Namen und deren Komplexität. Außerdem liegen anscheinend bei Euch die Mail-DBs im Root-Verzeichnis des Servers. Finde ich befremdlich.

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

[champion]

Hallo zusammen,

hier noch ein paar weitere Infos, die mir aufgrund der ersten Infos Euch noch notwendig sind?!?!?!

@ Dau-In: Ja das ist VBA aus Excel heraus programmiert, bzw. aus einem Forum heraus übernommen.

@ WildVirus: Wie so Namenloser??? Benutzernamen = champion und in der Abschlusszeile habe ich Uwe geschrieben - sorry, bin das erste mal in diesem Forum unterwegs.

Beüglich der zuerst beschriebenen Sache habe ich den Code aus einem Forum übernommen und es funktioniert - auch die Personen mit Doppelnamen werden die Emails korrekt übertragen - die Zusammensetzung erfolgt in Excel und das klappt hervorragend.

Jetzt zur Formatierung: Ich möchte die als variablen deklarierten Infos z. B. fett, in Farbe, die Schriftgröße verändern.

Reichen diese Infos aus, bzw. was wird noch benötigt???

Bisher schonmal vielen Dank für Eure bisherigen Infos.

Viele Grüße
Uwe

[WildVirus]

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

Code

	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

[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

[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

[champion]

Hallo Bernhard,

sorry, aber Lotus ist nicht zwingend meine Welt!!!

Wo finde ich den DominoDesigner???

Viele Grüße

Uwe

[koehlerbv]

Servus Uwe,

Du findest auf den entsprechenden IBM-Seiten nicht nur die Designer-Doku, sondern kannst Dir dort sogar ganz legal und kostenfrei den Designer selber herunterladen (der bringt die DesignerHelp dann automatisch als Notes-DB mit).

Good luck,
Bernhard

[champion]

Hallo Bernhard,

habe die gewünschten Farbcodes und noch ein paar andere Dinge im DominoDesigner gefunden.

Leider bekomme ich es nicht hin, den Farbcode in eine meiner Zeilen einzubinden, habe heute Nachmittag so gut wie alles probiert.

Wahrscheinlich ist es nur einen "klick" anders.

Würde mich freuen, wenn Du mir hier vielleicht die entsprechende Prgrammierzeile für z. B. rote Schrift ein bauen könntest.

Vielen lieben Dank

Uwe

[WildVirus]

Hallo Uwe,

wie baust Du denn die Farbanforderung "Rot" bislang zusammen ?

An den Hinweisen zu Deinem Code lernst Du mehr, als an vorgefertigten funktionierenden Codezeilen.

CU,
Axel

[champion]

Hi Axel,

ich habe mich da an Deinen Code von vor ein paar Tagen gehalten.

Code

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

[WildVirus]

Hallo Uwe,

im Debugger von Notes sieht man, dass bei meinem Code der Variable nicht Color_Red zugewiesen wird, sondern Notes intern einen Integerwert von 2 daraus macht. [Excel nutzt intern auch jede Menge solcher Variablen]

Versuch doch mal den.

CU,
Axel

P.S. Darum solche Funktionen idealerweise erst in Notes zum Fliegen bringen und dann in VBA etc. konvertieren.

[champion]

D. h. jetzt, dass ich aus COLOR_RED eine 2 mache???

Böhmische Dörfer?!?!?!

[champion]

Hallo Lotus-Gemeinde,

ich habe mir die einzelnen Berichte zu meinem Thema nochmals angeschaut - wahrscheinlich reden, bzw. schreiben wir die ganze Zeit aneinander vorbei.

Ich habe die Email für Lotus aus Excel-VBA heraus programmiert. Vielleicht ist es jetzt für Euch verständlich, dass ich manchmal nichts verstehe???

Wer kann mir weiterhelfen.

Viele Grüße
Uwe

[Peter Klett]

Falls das

Dim rtStyleFarbe1 As Object
Set rtStyleFarbe1 = Session.CreateRichTextStyle
rtSteyleFarbe1.NotesColor = COLOR_RED
rtItem.AppendStyle rtStyle Farbe1

Dein Original-Code ist, kann er nicht funktionieren, da dort einige Tippfehler drin sind. Korrigiert sieht das so aus:

Dim rtStyleFarbe1 As Object
Set rtStyleFarbe1 = Session.CreateRichTextStyle
rtStyleFarbe1.NotesColor = 2
rtItem.AppendStyle rtStyleFarbe1

Ob das in VBA so geschrieben wird, weiß ich nicht, in LotusScript sieht das etwas anders aus
(z.B. Call rtItem.AppendStyle (rtStyleFarbe1)).

Dass Du das aus Excel heraus machst, ist hier wohl angekommen. Dadurch wird das natürlich nicht einfacher. Uns geht das umgekehrt genauso, wenn wir aus Notes irgendetwas über OLE in Excel "herumwurschteln", nur dass Excel den großen Vorteil hat, dass man ein Macro aufzeichnen und sich dann das generierte VBA in LotusScript umschreiben kann. Ist halt nur ähnlich, aber nicht gleich, quasi ein Dialekt. Einfacher ist es meist, wenn man erst in einer Welt bleibt, also ein Macro in Excel erstellt und das erst danach in Notes überträgt, oder umgekehrt, wie bei Dir, erst einen Agenten in Notes baut, und ihn dann in Excel überträgt, wenn er in Notes funktioniert. Das meinte Axel. Für einen Agenten in Notes bekommst Du hier sicherlich auch noch mehr Hinweise, denn da sind wir alle zuhause, das ist unser Tagesgeschäft.

Wenn ich mittels einer Exceltabelle Mails versenden sollte, würde ich von Notes aus auf Excel zugreifen und mir die Informationen für die Mails zusamensuchen. Wenn Du eher aus der MS-Office- oder VBA-Welt kommst, ist es genauso klar, dass Du es von Excel aus angehst. Möglich ist natürlich beides. Hier im Notes-Forum denken wir natürlich in erster Linie in Notes, und nicht in VBA.

[champion]

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:

Code

        '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