Hallo,
ich habe zuvor nur mit Outlook gearbeitet, da ich aber Betriebsbedingt hier umsteigen werde, habe ich nun eine Frage:
Ich habe über ein Makro eine Abfolge in Outlook gestartet:
Makro für neue Mail -> Fenster Öffnet sich und fragt die Projektnummer ab -> nach Eingabe der 4 Stelligen Nummer sucht er in einer CSV(Excel) Datei eine Spalte ab.
Daneben steht ein Projektname mit diesen Infos baut er mir meine gewünschte Betreffszeile:
[BV-"eingegebene Nummer"] "gefundener Projektname";
Fester Text
Variablen
bei nicht finden der Nummer fragt er mich zusätzlich den Projektnamen ab.
Das ganze sah in Outlook wie folgt aus:
Sub NeueMail()
Dim olApp As Object
Dim Projektnummer As String
Dim Betreff As String
Dim Projektname As String
Dim Projektmail As String
Projektnummer = InputBox("Bitte geben Sie die Projektnummer ein", "Projektnummer ?")
If StrPtr(Projektnummer) = 0 Then Exit Sub
Projektname = getProjektname(Val(Projektnummer))
If Projektname = "" Then
Projektname = InputBox("Bitte geben Sie den Projektname ein", "Projektname ?")
If StrPtr(Projektname) = 0 Then Exit Sub
End If
Projektmail = getProjektmail(Val(Projektnummer))
Betreff = InputBox("Bitte geben Sie den Betreff der Mail ein", "BETREFF der Mail ?")
If StrPtr(Betreff) = 0 Then Exit Sub
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
.Display
.To = ""
.CC = Projektmail
.BCC = ""
.Subject = "[BV-" & Projektnummer & "] " & Projektname & "; " & Betreff
End With
Set olApp = Nothing
End Sub
Private Function getProjektname(Projektnummer As Variant) As String
Dim olApp As Object
Dim WF As Object
Const PFAD As String = "C:\Users\Documents\Projekte.csv"
On Error Resume Next
Set olApp = CreateObject("Excel.Application")
With olApp
Set WF = .WorksheetFunction
With .Workbooks.Open(PFAD, 0, True)
With .Worksheets("Projekte")
getProjektname = WF.Index(.Columns(2), WF.Match(Projektnummer, .Columns(3), 0), 1)
End With
.Close False
End With
Set WF = Nothing
.Quit
End With
Set olApp = Nothing
End Function
Private Function getProjektmail(Projektnummer As Variant) As String
Dim olApp As Object
Dim WF As Object
Const PFAD As String = "C:\Users\Documents\Projekte.csv"
On Error Resume Next
Set olApp = CreateObject("Excel.Application")
With olApp
Set WF = .WorksheetFunction
With .Workbooks.Open(PFAD, 0, True)
With .Worksheets("Projekte")
getProjektmail = WF.Index(.Columns(11), WF.Match(Projektnummer, .Columns(3), 0), 1)
End With
.Close False
End With
Set WF = Nothing
.Quit
End With
Set olApp = Nothing
End FunctionNun meine Frage, da ich den Code nicht selbst geschrieben sondern ebenfalls vor Jahren durch mehrere Forenbeiträge mir zusammengebaut habe,
gibt es diese Möglichkeit auch in Thunderbird?
ich glaube mit dem Quicktext Addon müsste so etwas vielleicht Möglich sein?
Vielen Dank