VBA Code für jede Zeile
30.08.2022 17:23:32
Tom
ich bin absoluter VBA Laie und suche mir alles mühsam zusammen.
Nachfolgendes Script habe ich gefunden und für meinen Zwecke teileweise umbauen können, so das es läuft.
Es läuft aber nur für 1 Zelle.
Ich mochte gerne automatisiert Termine im Kalender speichern und gleichzeitig als Bestätigung dem Kunden schicken.
Derzeit über 1 Button für 1 Zelle.....
Mein Wunsch wäre, das Script am Ende der Tabelle so einzufügen, dass ich auf einen Link klicke und die Terminvorschau öffnet sich.
Ich weiß, dass es mit =Hyperlink() geht, tu mich aber auch schwer mit der Programmierung.
Hier das Script:
Sub Termine2023()
Dim OL As Outlook.Application, Appoint As Outlook.AppointmentItem, ES As Worksheet, WB As Workbook
Set WB = ThisWorkbook
Set TP = WB.Sheets("Termine2023")
Set OL = New Outlook.Application
'Load Variables
Recipient = TP.Cells(3, 14).Value
DayMeeting = TP.Cells(3, 15).Value
StartTime = TP.Cells(3, 16).Value
EndTime = TP.Cells(3, 17).Value
Location = TP.Cells(3, 5).Value
Project = TP.Cells(3, 19).Value
Subject = TP.Cells(110, 2).Value
Greeting = TP.Cells(112, 2).Value
BodyA = TP.Cells(114, 2).Value
BodyB = TP.Cells(116, 2).Value
BodyC = TP.Cells(118, 2).Value
FinishA = TP.Cells(120, 2).Value
FinishB = TP.Cells(121, 2).Value
Set Appoint = OL.CreateItem(olAppointmentItem)
With Appoint
.Subject = Subject
.Start = StartTime
.End = EndTime
.Location = Location
.AllDayEvent = False
.Body = Greeting & Chr(10) & Chr(10) & BodyA & Chr(10) & Chr(10) & BodyB & Chr(10) & Chr(10) & BodyC & Chr(10) & Chr(10) & FinishA & Chr(10) & FinishB
.MeetingStatus = olMeeting
.Recipients.Add (Recipient)
.SendUsingAccount = .Session.Accounts.Item("DJ Tom Stroh")
.Display
End With
Set OL = Nothing
End Sub
Hier mein Hyperlink, der aber nur rudimentär ist:=HYPERLINK("mailto:" & N2 & "?Subject=" &$B$110 & "&body=" &$B$114;"Send Mail")
Als Ausgabe sollte das dabei im Terminfenster im Outlook rauskommen:
Gerne bestätige ich Ihnen den Termin am 12. April 2023 um 13:45.
Ich freue mich Sie zum Vorgespräch in . zu treffen.
Schön Sie kennenzulernen.
MfG
Tom
Ich würde gerne Bilder der Terminansicht und der Tabelle einstellen, weiß leider nicht wie es funktionier.
Danke für die Hilfe, Tom