.body über Excel VBA Code befüllen
12.10.2022 09:48:08
Georg
Ich hätte gerne in der Zeile
.body = Ticketinhalt.Value
nicht nur die definierte Range integriert, sondern auch noch einen Text vorab dazu. Meine Versuche, das mit & und einer strgVariabeln zu verbinden schlugen fehl, ohne dass ich weiß warum. Es wurde nach wie vor nur die Variable "Ticketinhalt" eingefügt - keine Fehlermeldung
Die Mail - also .body - sollte so aussehen, als Beispiel:
"Dies ist mein Text, mit dem ich meinen Ansprechpartner anschreiben will......"
und dann erst die kopierte Range, was eine Tabelle ist.
Ich kenne mich nicht so gut aus damit, der Code ist aus dem Netz, und ich schaffe es nicht ganz, ihn an meine Anforderungen anzupassen.
der Commandbutton liegt auf einer Userform.
Ein Tipp wäre prima 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 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
.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
End Sub
