Hallo Allerseits,
ich habe ein Makro gebastelt welches automatisch einen bestimmten Bereich aus Excel kopiert und in Lotus Notes einfügt.
Mein Problem wenn die Mail in Lotus Notes versendet werden soll muss diese Klassifiziert werden. d.h. Auswahl von Public ,intern etc. und dannach bestätigem. Ich möchte dies gerne umgehen oder die Eimail immer als Intern versenden. Weiß hier jemand rat wie ich das anstellen kann?
Hier mein bisheriges Makro. p.s. ist noch nicht final. War jetzt erstmal zum testen dem mail versenden.
Sub test()
Dim uiworkspace As Object
Dim uidoc As Object
Dim empfaenger As String
Dim cc As String
Dim betreff As String
Dim mailtext As String
empfaenger = Sheets("confic").Cells(1, 2)
cc = Sheets("confic").Cells(3, 2)
betreff = Sheets("confic").Cells(5, 2)
mailtext = Sheets("confic").Cells(7, 2) & vbclrf & vbclrf
Range("D3:K18").Select
Selection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
Set uiworkspace = CreateObject("Notes.NotesUIWorkspace") 'Zugriff auf UIWorkspace
Set uidoc = uiworkspace.COMPOSEDOCUMENT("", "", "Memo") 'Erstellt neues Dokument (sprich Mail unter Vorlage "Memo" )
With uidoc
.GOTOFIELD ("To")
.INSERTTEXT (empfaenger)
.GOTOFIELD ("Subject")
.INSERTTEXT (betreff)
.GOTOFIELD ("Body")
.INSERTTEXT (mailtext)
.Paste
.Send
.Close
End With
Set uiworkspace = Nothing
Set uidoc = Nothing
End Sub
vielen Dank schonmal ;)
|