6
Visual Basic Editor Termine mit einer UserForm in eine Tabelle eintragen und gleichzeitig ein Termin in Outlook erstellen
Moin, ich möchte mit dem Visual Basic Editor, Termine mit einer UserForm in eine Tabelle eintragen und gleichzeitig ein Termin in Outlook erstellen. Hier Möchte ich die Eingabefenster (E-Mail, Name/Firma, Tel.:, Ort, Datum, Startzeit, Endzeit, Betreff, Beschreibung) haben.
Ich habe das ganze zwar so hinbekommen das ich es in eine Excel-Tabelle untereinander eintagen kann, aber wie ich peer einem extra Button einen Outlooktermin erstellen kann habe ich noch nicht herrausgefunden. Wenn mir da jemand helfen könnte wäre das sehr schön.
Ich habe das ganze zwar so hinbekommen das ich es in eine Excel-Tabelle untereinander eintagen kann, aber wie ich peer einem extra Button einen Outlooktermin erstellen kann habe ich noch nicht herrausgefunden. Wenn mir da jemand helfen könnte wäre das sehr schön.
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 587845
Url: https://administrator.de/contentid/587845
Printed on: April 19, 2024 at 06:04 o'clock
6 Comments
Latest comment
Hi,
reden wir von VBA oder von VB.Net?
E.
https://docs.microsoft.com/de-de/office/vba/api/outlook.appointmentitem
https://docs.microsoft.com/de-de/office/vba/outlook/how-to/items-folders ...
https://stackoverflow.com/questions/47814610/creating-outlook-appointmen ...
Und so weiter und so google ...
reden wir von VBA oder von VB.Net?
E.
https://docs.microsoft.com/de-de/office/vba/api/outlook.appointmentitem
https://docs.microsoft.com/de-de/office/vba/outlook/how-to/items-folders ...
https://stackoverflow.com/questions/47814610/creating-outlook-appointmen ...
Und so weiter und so google ...
Und so weiter und so google ...
So weit braucht er gar nicht schweifen ...Die Suche hier hätte auch dir ein Licht aufgehen lassen müssen
Mit Excel einen Termin in Outlook erzeugen
reden wir von VBA oder von VB.Net?
Kategorie des Posts in "VB for Applications" ist dir nicht eindeutig genug?
Ich habe das sowit versucht, bekomme es aber nicht so hin wie ich möchte.
Wir reden hier von VBA.
Dann frage dich und uns wie du es möchtest! Wenn wir hier was posten was du dann wieder nicht verstehst dreht sich eh wieder alles nur im Kreis. Dein VBA Handbuch sollte immer parat liegen, dann sind das auch keine böhmischen Dörfer mehr. Dich minimal mit der Materie zu beschäftigen, darum wirst du nicht herum kommen. Eine Fix und Fertig Auftragsarbeit wird dir hier keiner anfertigen.
Wir können dir nicht ins Hirn schauen ...
Wir können dir nicht ins Hirn schauen ...
Was ich bisher habe:
Option Explicit
Private Sub Ende_Click()
Unload Me
End Sub
Private Sub Speichern_Click()
Dim last As Integer
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(last, 1).Value = Datum
Cells(last, 2).Value = Uhrzeit
Cells(last, 3).Value = Tel
Cells(last, 4).Value = NameFirma
Cells(last, 5).Value = Wasistlos
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim Datumm As Date
Dim Zeit As String
Zeit = Format(Now, "hh:mm")
Datumm = Format(Now, "yyyy-mm-dd")
Datum = Datumm
Uhrzeit = Zeit
Tel = ""
NameFirma = ""
Wasistlos = "Bitte hier eine Kurze Beschreibung!"
End Sub
Public Function Terminerstellen_Click() As Sting
' Prüfen ob Outlook vorhanden ist.
'
' Beispiel - Outlook überhaupt installiert ? und welche Version
'
' Fehlerbehandlung aktivieren
On Error GoTo ErrHandler
Dim oOutlook As Object
Set oOutlook = CreateObject("Outlook.Application")
OutlookAvail = .Version
Set oOutlook = Nothing
Exit Function
ErrHandler:
OutlookAvail = ""
End Function
Hier verusche ich die eingabe für die E-Mail einzubauen und das ich automatisch ein Termin oder E-Mail in Outlook erstelle.
Option Explicit
Private Sub Ende_Click()
Unload Me
End Sub
Private Sub Speichern_Click()
Dim last As Integer
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(last, 1).Value = Datum
Cells(last, 2).Value = Uhrzeit
Cells(last, 3).Value = Tel
Cells(last, 4).Value = NameFirma
Cells(last, 5).Value = Wasistlos
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim Datumm As Date
Dim Zeit As String
Zeit = Format(Now, "hh:mm")
Datumm = Format(Now, "yyyy-mm-dd")
Datum = Datumm
Uhrzeit = Zeit
Tel = ""
NameFirma = ""
Wasistlos = "Bitte hier eine Kurze Beschreibung!"
End Sub
Public Function Terminerstellen_Click() As Sting
' Prüfen ob Outlook vorhanden ist.
'
' Beispiel - Outlook überhaupt installiert ? und welche Version
'
' Fehlerbehandlung aktivieren
On Error GoTo ErrHandler
Dim oOutlook As Object
Set oOutlook = CreateObject("Outlook.Application")
OutlookAvail = .Version
Set oOutlook = Nothing
Exit Function
ErrHandler:
OutlookAvail = ""
End Function
Hier verusche ich die eingabe für die E-Mail einzubauen und das ich automatisch ein Termin oder E-Mail in Outlook erstelle.
