Hallo zusammen,
bin neu hier und auch relativ neu in der Programmierung mit und um Notes.
Hoffe hier kann mir jemand helfen!
Ich habe mittlerweile folgenden Code gefunden / geschrieben / angepasst:
Public Sub btnEntwurfTeam1A_click()
EmailTeam1A = Sheets(Sh3).Range(CellEmailTeam1A)
NameTeam1A = Sheets(Sh3).Range(CellNameTeam1A)
txtEmail = EmailTeam1A
txtSubject = "Präsentation KVP-Ziele: " & NameTeam1A
txtBody = Sheets(Sh1).Range("B6:C20").Copy
Save_Entwurf
MsgBoxEntwurf1Sekunden
End Sub
Public Function Save_Entwurf()
Set session = CreateObject("Notes.NotesSession")
Set mailDB = session.currentdatabase
Set MailDoc = mailDB.CREATEDOCUMENT
Dim AttachMe As Object
attachment = "<Pfad zur Datei>"
' MailDoc.PostedDate = ""
MailDoc.Form = "Memo"
MailDoc.SendTo = Split(txtEmail, ";")
MailDoc.CopyTo = txtEmail2
' MailDoc.BlindCopyTo = bccRecipient
MailDoc.Subject = txtSubject
MailDoc.Body = txtBody
MailDoc.Save True, False
Set mailDB = Nothing
Set MailDoc = Nothing
Set session = Nothing
End Function
Dies macht alles was ich will, nur ich verzweifle daran, das im Body mein Text plus ein Screenshot meiner Tabelle (Bereich der Tabelle: B6:C20) vorhanden ist.
Wäre auch soweit, denn Bereich der Tabelle als .jpg in dem gleichen Ordner zu speichern um dieses dann einzufügen, falls es leichter wäre.
Mir fehlen nur die richtigen Befehle, bei VBA kann ich im Object Katalog oder Internet nach denn Befehlszeilen nach schauen.
Bei Notes habe ich noch nichts in der richtig gefunden.
Ich hoffe Ihr könnt mir helfen, will das schon gerne hinbekommen und somit wieder etwas dazu lernen.
Mit Freundlichen Grüßen
Matthias
Du hast eines der schwierigsten Probleme überhaupt in LotusScript ausgesucht: Das importieren eines Bildes in ein Richtextitem. Das Anhängen eines Bildes als Attachment ist ein Zweizeiler... Für das Einfügen eines Bildes in ein RichtextItem brauchst Du entweder externe Kaufsoftware, oder Du muss mit Tricks arbeiten wie XML- Manipulation, Erstellen von Multipart Mime Messages oder Missbrauchen der Frontend- Klassen.
Jeder dieser Hacks ist leider nicht in wenigen Zeilen hier erklärt...
Der "einfache" Weg, das JPG einfach als Attachment einzufügen ginge so:
Ersetze die Zeile "MailDoc.Body = txtBody" durch:
Dim body as NotesRichtextItem
Set body = New NotesRichtextItem( MailDoc, "Body" )
Call body.AppendText( txtBody )
Call body.AddNewLine( 2 )
Call body.EmbedObject( EMBED_ATTACHMENT, "", "PfadZuDeinem\bild.jpg" )
Ach ja, in Excel kommt man an das Notes-Frontend so heran:
Dim ws As Object
Set ws = CreateObject("Notes.NOTESUIWORKSPACE")
Mal so als Startgeber :)