Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA: Excel Inhalt kopieren & via Lotus Notes

VBA: Excel Inhalt kopieren & via Lotus Notes
17.06.2016 09:12:08
Philipp
Hallo
Ich habe eine Auswertung die ich wöchentlich erledige und bei der ich einen immer gleichen Bereich("A5:I27") im selben Reiter("TakeRate") kopiere, dann in eine Email (Lotus Notes) direkt einfüge und versende.
Ich habe bereits ein Makro geschrieben was mittels Button in Excel den Versand regelt - jedoch schaffe ich das kopieren & einfügen nicht. Kann mir jemand helfen?
Vielen Dank!
LG Philipp
Sub Schaltfläche1_KlickenSieAuf()
Application.DisplayAlerts = False
Dim Maildb As Object
Dim MailDbName As String
Dim MailDoc As Object
Dim session As Object
Dim Recipient As String
Dim e As String
Dim f As String
Dim rtitem
AWS = ActiveWorkbook.FullName
Set session = CreateObject("Notes.NotesSession")
Set Maildb = session.CURRENTDATABASE
'On Error Resume Next
Set MailDoc = Maildb.CREATEDOCUMENT
MailDoc.Form = "Memo"
Recipient = "Test@Test.co.at"
MailDoc.sendto = "Test@Test.co.at"
MailDoc.CopyTo = ""
MailDoc.Subject = "Wöchentlicher Bericht"
Set rtitem = MailDoc.CREATERICHTEXTITEM("Body")
With rtitem
.APPENDTEXT ("Hallo.....")
End With
MailDoc.SAVEMESSAGEONSEND = True
MailDoc.PostedDate = Now()
MailDoc.SEND 0, Recipient
Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set session = Nothing
Set EmbedObj = Nothing
Application.DisplayAlerts = True
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Excel Inhalt kopieren & via Lotus Notes
22.06.2016 13:25:27
Philipp
Keine eine Idee?
Anzeige

318 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige