Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Mail mit Lotus Notes
 28.08.2014 11:55:21 Tellos
NotSolved

Ansicht des Beitrags:
Von:
Tellos		 Datum:
28.08.2014 11:55:21		 Views:
1326		 Rating:
     
Antwort:
  Ja
Thema:
VBA Mail mit Lotus Notes

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 ;)

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Mail mit Lotus Notes
 28.08.2014 11:55:21 Tellos
NotSolved