Domino 9 und frühere Versionen > ND6: Entwicklung

Excel-Datei an Notes anhängen, Zellen zusätzlich einfügen, aber nicht versenden

(1/2) > >>

Raphael:
Hallo zusammen,
ich hoffe das Problem hier an der richtigen Stelle anzubringen.

Folgende Situation (Excel 2007, Lotus Notes 6.5):
Ich arbeite mit einem größeren Excel-File, welches bei Drücken der Versende-Schaltfläche folgende Aktionen ausführen soll:

I. ein Notes-Memo erstellen (  :) )
II. einen vorher definierten Bereich aus Excel als Bild einfügen (  :) )
III. die aktuelle Excel-Datei anhängen (  ??? )
IV. die Email nicht direkt versenden, da der Empfänger per Hand eingegeben werden muss und manchmal weitere Dateien angehangen werden müssen ( :) )

Wie den Smileys zu entnehmen ist, bereitet mir Punkt III. einiges Kopfzerbrechen.


--- Code: ---Dim Notes As Object
Dim Maildb As Object
Dim WorkSpace As Object
Dim UIdoc As Object
Dim UserName As String
Dim MailDbName As String

Set Notes = CreateObject("Notes.NotesSession")
UserName = Notes.UserName
MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
Set Maildb = Notes.GetDataBase(vbNullString, MailDbName)
Set WorkSpace = CreateObject("Notes.NotesUIWorkspace")
Call WorkSpace.ComposeDocument(, , "Memo")
Set UIdoc = WorkSpace.CurrentDocument


'If cells are null, such as email address, cc, etc, then ignore and dont paste into email
On Error Resume Next
 
'Note:  Addresses in this cell should be separated by a semicolon.
Recipient = "Bitte Empfänger eingeben"
Call UIdoc.FieldSetText("EnterSendTo", Recipient)
 
'Note:  Addresses in this cell should be separated by a semicolon
ccRecipient = ""
Call UIdoc.FieldSetText("EnterCopyTo", ccRecipient)
 
'Note:  Addresses in this cell should be separated by a semicolon
bccRecipient = ""
Call UIdoc.FieldSetText("EnterBlindCopyTo", bccRecipient)
 
'Copy the subject from cell P13 into the SUBJECT: field in Lotus Notes
Subject1 = Sheets("BESTELLANTRAG").Range("P13").Value
Call UIdoc.FieldSetText("Subject", Subject1)

'Copy the cells in the range into the BODY in Lotus Notes.
Set rnBody = ActiveSheet.Range("B53:K63")
rnBody.Copy
Call UIdoc.GotoField("Body")
Call UIdoc.Paste

'Insert some carriage returns at the end of the email
Call UIdoc.InsertText(vbCrLf & vbCrLf)
Application.CutCopyMode = False
 
Set UIdoc = Nothing: Set WorkSpace = Nothing
Set Maildb = Nothing: Set Notes = Nothing
Set Body = Nothing


--- Ende Code ---
http://www.ozgrid.com/forum/showthread.php?t=99798

Ich habe mich jetzt bereits einige Tage damit auseinandergesetzt und mir einige Lösungsmöglichkeiten bzgl. Dateianhängen angesehen, doch hatten diese immer den Nachteil, dass die Email anschließend umgehend versendet wurde, was im Hinblick auf IV. nicht sein darf.

Für Ratschläge und Hilfestellungen wäre ich sehr dankbar!

koehlerbv:
Genauso, wie Du Dein Bild einfügst, kannst Du es auch mit dem Sheet als Attachment machen. Du solltest dabei über ein persönliches ProfileDocument gehen (RT-Item löschen, neu erstellen, attachen, im UI öffnen und kopieren).

HTH,
Bernhard

Raphael:
ah..........ok.... Ich versteh zwar quasi noch größtenteils Bahnhof, aber ich werde mal google konsultieren  ;)
Schonmal vielen Dank!

koehlerbv:
Sag einfach an, was noch unverständlich ist.

Bernhard

Raphael:
Als totaler Laie hört es schon mit persönliches ProfileDocument, RT-Item etc. auf. Ich versuche seit einigen Tagen mich anhand von Codefragmenten in die Thematik einzuarbeiten. Falls es eine frei verfügbare, einführende Doku für das Thema gibt, wär ich für einen Link oder Namen dankbar :)

Navigation

[0] Themen-Index

[#] Nächste Seite