eMial via Lotus Notes mit Bild UND Anghang
Ramon
ich habe inzwischen verschiedene Wege gefunden, eMails aus Excel heraus per Lotus Notes zu versenden.
Problematisch: Bei der einen Variante bekomme ich es hin, definierte Anhänge mit zu verschicken, dafür
aber kein Bild im Bodyfield (Textbereich).
Die andere Variante finde ich leichter und übersichtlicher. Hier gelingt es mir ganz einfach, einen definierten
Zellbereich als Bild einzufügen. Allerdings fehlt mir das Wissen, wie ich hier auch noch einen Anhang drunter hängen kann.
Folgender Code, der soweit auch prima Funktioniert:
Sub test()
Dim uiworkspace As Object
Dim uidoc As Object
Range("ramki").Select 'Zellbereich für das einzufügende Bild (entsprech. Name vergeben)
Selection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
Set uiworkspace = CreateObject("Notes.NotesUIWorkspace")
Set uidoc = uiworkspace.COMPOSEDOCUMENT("", "", "Memo")
With uidoc
.gotofield ("To")
.inserttext ("ramkil@rumtesten.com")
.gotofield ("Subject")
.inserttext ("test")
.gotofield ("Body")
.inserttext ("und jetzt kommt das Bild, . . ." & vbCrLf & vbCrLf)
.Paste 'fügt das Bild ein
.inserttext (vbCrLf & vbCrLf & "erfolgreich?")
' UND HIER SOLL JETZT NOCH EIN DATEIANHANG UNTER DEN TEXT. ABER WIE ?
.inserttext ("Freundliche Grüße")
.Send
.Close
End With
Set uiworkspace = Nothing
Set uidoc = Nothing
End Sub
Hoffe, Ihr habt wieder den goldenen Tipp für mich.Danke!