application.cutcopymode
07.10.2022 11:54:19
Georg
Der Code ist aus dem Netz kopiert und etwas angepasst, aber übersteigt fast meine Kenntnisse, daher wäre ich über einen Tipp sehr dankbar
Gruß Georg
Private Sub CommandButton1_Click()
'Updated by Extendoffice 2017/9/14
'Button für den Mailversand Rollen und Rechte Anlage User-Account, Outlook Gruppen
Dim xOutApp As Object
Dim xOutMail As Object
' Dim xMailbody As String
Dim xMailbody As Object
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)
'das letzte Worksheet bestimmen
Dim lastWsh As Worksheet
Set lastWsh = ThisWorkbook.Worksheets(Sheets.Count)
'Wo endet Ticket1: finde das Keyword
Dim EndeTicket1 As Range
Set EndeTicket1 = Columns(2).Find(what:="EndeTicket1")
'Den Ticketinhalt für Ticket Kontoanlage etc bestimmen (so kann ich dann die anderen Rechte alle untereinander schreiben
Dim Ticketinhalt As Range
Set Ticketinhalt = lastWsh.Range(Cells(1, 1), Cells(EndeTicket1.Row - 1, EndeTicket1.Column))
Ticketinhalt.Copy
On Error Resume Next
'Und ab geht die Post
With xOutMail
.To = "support@gedikomservicedesk.freshservice.com"
.CC = ""
.BCC = ""
.Subject = "Konto Anlage" & " " & TxtBoxBetreffBPx.Value
' .Subject = "Test email send by button clicking"
' .body = xMailbody
.body = Ticketinhalt.Value
.Display 'or use .Send
End With
On Error GoTo 0
Set xOutMail = Nothing
Set xOutApp = Nothing
Application.Wait (Now + TimeValue("0:00:05"))
' Dann die Zwischenablage einfügen
'Application.SendKeys ("%bi") ' im Menü BEARBEITEN (Alt-B) das e-I-nfügen wählen
Application.SendKeys ("^v") ' Strg-V Anweisung ist die 2.Möglichkeit statt Alt-B + I
'Me.Hide
End Sub