Incident Erfassungs GUI - Input via Outlook als E-Mail versenden

torti76

Hallo,

da wir bei uns in der Firma kein Ticket System haben behelfen wir uns mit einem Gruppenpostfach z.B. it-support@xxx.com.

Auf dieses Postfach haben alle Kollegen des IT-Supports Zugriff und jeder Kollege schaut da rein, schnappt sich einen Incident und bearbeitet diesen dann.

Wir haben nun jemand der nur an der Telefonhotline sitzt und Incidents als E-Mail erfasst an das Gruppenpostfach versendet.

Ich würde Ihm gerne eine Incident Erfassungs GUI bereitstellen welche dann nach erfassen über einen Sende Button eine E-Mail an den IT-Support sendet.

Die GUI erstellen war jetzt nicht das Problem, auch hatte ich das versenden cia SMTP schon hinbekommen.

Schöner fände ich es aber dass nach Erfassen des Incidents in der GUI die E-Mail über das lokal installierte Outlook versendet wird.

Ich habe schon die GUI erstellt und mal einen Screenshot angefügt um zu zeigen wie es dann in Outlook aussehen könnte

INCIDENT GUI:

[autoit]

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <DateTimeConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=c:\users\torti\desktop\icident_erfassung.kxf
$Form1_1 = GUICreate("Incident Erfassung", 963, 674, 404, 166)
$Input_IncidentAntragsteller = GUICtrlCreateInput("Nachname, Vorname", 8, 48, 121, 21)
$Combo_Niederlassung = GUICtrlCreateCombo("", 168, 48, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1,"Niederlassung 01|Niederlassung 02|Niederlassung 03")
$Combo_Klassifizierung = GUICtrlCreateCombo("", 168, 120, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1,"Hardware|Software|Netzwerk")
$Edit_Fehlerbeschreibung = GUICtrlCreateEdit("", 8, 280, 945, 345)
GUICtrlSetData(-1, "Text...")
$Button_Senden = GUICtrlCreateButton("Senden", 392, 640, 75, 25)
$Button_Abbrechen = GUICtrlCreateButton("Abbrechen", 496, 640, 75, 25)
$Input_Abteilung = GUICtrlCreateInput("", 352, 48, 121, 21)
$Label_IncidentAntragsteller = GUICtrlCreateLabel("Incident Antragsteller", 8, 24, 108, 17)
$Label_Abteilung = GUICtrlCreateLabel("Abteilung", 352, 24, 48, 17)
$Input_Telefonnummer = GUICtrlCreateInput("", 512, 48, 121, 21)
$Label_Telefonnummer = GUICtrlCreateLabel("Telefonnummer", 512, 24, 77, 17)
$Label_Niederlassung = GUICtrlCreateLabel("Niederlassung", 168, 24, 71, 17)
$Label_Ausloeser = GUICtrlCreateLabel("Auslöser", 352, 96, 44, 17)
$Label_Klassifizierung = GUICtrlCreateLabel("Klassifizierung", 168, 96, 70, 17)
$Combo_Ausloeser = GUICtrlCreateCombo("", 352, 120, 121, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1,"Workstation|Notebook|Drucker|Netzwerk Device")
$Label_DeviceBez = GUICtrlCreateLabel("Device Bezeichnung", 512, 96, 103, 17)
$Date = GUICtrlCreateDate("2013/01/23 11:37:3", 672, 48, 186, 21)
$Label_Date = GUICtrlCreateLabel("Datum", 672, 24, 35, 17)
$Label_Fehlerbeschreibung = GUICtrlCreateLabel("Fehlerbeschreibung", 8, 256, 97, 17)
$Input_Betreff = GUICtrlCreateInput("", 8, 200, 945, 21)
$Label_Betreff = GUICtrlCreateLabel("Incident Kurzbeschreibung", 8, 176, 200, 17)
$Input_DeviceBez = GUICtrlCreateInput("", 512, 120, 121, 21)
$Combo_Zustaendigkeit = GUICtrlCreateCombo("", 672, 120, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1,"IT-Service|IT-Infrastructure|SAP Competence Center")
$Label_Zusaendigkeit = GUICtrlCreateLabel("Zuständigkeit", 672, 96, 68, 17)
$Combo_IncidentErfasser = GUICtrlCreateCombo("", 8, 120, 121, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1,"IT-Service User01|IT-Service User02|IT-Service User03")
$Label_IncidentErfasser = GUICtrlCreateLabel("Incident Erfasser", 8, 96, 83, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit][autoit][/autoit][autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

[/autoit][autoit][/autoit][autoit]

EndSwitch
WEnd

[/autoit]

So hätte ich mir das dann vorgstellt wenn die Daten aus der GUI in Outlook übertragen werden.
Am besten wäre es wenn ich hier nicht nochmals auf "Senden" drücken müsste.

Mit diesem Script habe ich schon probiert:

[autoit]

#include <INet.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

[/autoit][autoit][/autoit][autoit]

$Form1 = GUICreate("Incident Erfassung", 214, 252, 254, 124)
$Input1 = GUICtrlCreateInput("it-support@xxx.com", 8, 8, 121, 21)
$Input2 = GUICtrlCreateInput("Incident Kurzbeschreibung", 8, 40, 121, 21)
$Edit1 = GUICtrlCreateEdit("", 8, 72, 185, 89)
GUICtrlSetData(-1, "Fehlerbeschreibung")
$Button1 = GUICtrlCreateButton("Senden", 8, 184, 75, 25)
GUISetState(@SW_SHOW)

[/autoit][autoit][/autoit][autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_INetMail(GUICtrlRead($Input1), GUICtrlRead($Input2), GUICtrlRead($Edit1))
EndSwitch
WEnd

[/autoit]

aber ich bekomme es vom Aufbau nicht so hin wie es in dem Screenshot sichbar ist [Blockierte Grafik: http://www.autoit.de/wcf/images/smilies/unsure.png]

Kann mir jemand Hilfestellung geben?
Grüßle,
Torti

qwert23

dafür empfehle ich Dir das OutlookEX UDF.
siehe hier: http://www.autoitscript.com/forum/topic/126305-outlookex-udf/

Dort findest Du den download, Beispiele etc.

torti76

Hallo qwert23,

vielen Dank für den Input, aber ich glaube ich hab dafür noch zu wenig Erfahrung in autoit

**water**

OutlookEX wollte ich gerade auch vorschlagen (und zwar nicht nur, weil ich der Autor bin).
Den Mailtext würde ich als HTML-Tabelle formatieren, das erhöht die Lesbarkeit. Außerdem lassen sich unterschiedliche Farben, Schriften etc. leicht einbinden.

torti76

Hallo water,

Danke für Deine Hilfe

Jetzt muss ich erst mal die Basis hinbekommen und mich in Deine Udf einlesen bzw. einarbeiten. Wie gesagt ich bin noch Anfänger und habe noch nicht den Überblick über so komplexe Sachen.

Wie soll ich denn anfangen? Wenn ich richtig verstanden habe muss ich Deine Funktion deklarieren und im Script aufrufen... Und dann ist bei mir schon Ende

Grüße

**water**

Ganz einfach. Meine OutlookEX UDF mit #include einbinden. _OL_Open am Anfang und _OL_Close am Ende aufrufen. Mit _OL_Wrapper_SendMail kann einfach eine Mail versendet werden.
Details dazu gibt es im wiki (siehe Signatur).
Und sonst ... einfach fragen.

qwert23

Die Beispiele von water sind sehr verständlich im Wiki und im UDF!

Ich habe das kurz aus Deinen Vorgaben und dem UDf zusammengestellt - als Beispiel:
Das Beispiel erzeugt 2 E-Mails. Lt. Deiner Vorstellung wäre die 2. Variante die einfachere.
Die einzelnen Inhalte sind von Dir nur noch in die richtige Reihenfolge zu bringen.

Spoiler anzeigen

[autoit]

#include <outlookex.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

$Form1 = GUICreate("Incident Erfassung", 214, 252, 254, 124)
$Input1 = GUICtrlCreateInput("it-support@xxx.com", 8, 8, 121, 21)
$Input2 = GUICtrlCreateInput("Incident Kurzbeschreibung", 8, 40, 121, 21)
$Edit1 = GUICtrlCreateEdit("", 8, 72, 185, 89)
GUICtrlSetData(-1, "Fehlerbeschreibung")
$Button1 = GUICtrlCreateButton("Senden", 8, 184, 75, 25)
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
; ------------ Outlook COM

[/autoit] [autoit][/autoit] [autoit]

Global $oOutlook = _OL_Open()
If @error <> 0 Then Exit MsgBox(16, "Fehler", "Error creating a connection to Outlook. @error = " & @error & ", @extended = " & @extended)

[/autoit] [autoit][/autoit] [autoit]

; ----------- Speichert E-Mail im Entwurfordner
_OL_ItemCreate($oOutlook, $olMailItem,"" ,"", "Subject="&GuiCtrlRead($Input2), "BodyFormat=" & $olFormatHTML, "HTMLBody=Fehlerbeschreibung"&@crlf&GuiCtrlRead($Edit1), "To=" & GuiCtrlRead($Input1))
If @error Then
MsgBox(16,"Fehler",@error&@crlf&@extended )
EndIf

[/autoit] [autoit][/autoit] [autoit]

; ----------- direktes senden wir Wrapper...

[/autoit] [autoit][/autoit] [autoit]

_OL_Wrapper_SendMail($oOutlook, GUICtrlRead($input1),"","",GuiCtrlRead($Input2), GuiCtrlRead($Edit1),$olFormatHTML, $olImportanceHigh)

[/autoit] [autoit][/autoit] [autoit]

; so belegst Du die Felder. In diesem Beispiel ist der Bodytext im HTML-Format angegeben
;_OL_Wrapper_SendMail($oOutlook, Empfänger, cc, bcc, Betreff, "Body fett normal.", Attachments, $olFormatHTML, $olImportanceHigh)

[/autoit] [autoit][/autoit] [autoit]

; ------------ für die einzelnen Werte siehe die ausführliche Beispielbeschreibung im UDF

[/autoit] [autoit][/autoit] [autoit]

MsgBox(64, "OutlookEX UDF", "Mail successfully sent to user '" & GuiCtrlRead($Input1) & "'!")

[/autoit] [autoit][/autoit] [autoit]

_OL_Close($oOutlook)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

EndSwitch
WEnd

[/autoit]

torti76

Hallo Zusammen,

so ich habe den Input von qwert23 mal soweit ich konnte umgesetzt.

Anbei mal das Script dazu.

Ich würde gerne noch Files als Attachment anhängen können und vielleicht ScreenShots in die Edit Box einfügen.

Um Files anzuhängen habe ich es mit "FileOpenDialog" versucht aber irgendwie klappt das nicht

Könnt Ihr mir hier auch helfen?

Danke im Voraus

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=xxx.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <outlookex.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ComboConstants.au3>
#include <DateTimeConstants.au3>
#include <StaticConstants.au3>
#include <File.au3>

[/autoit][autoit][/autoit][autoit]

Global $sEmail = 'it-support@xxx-xxx.com'

[/autoit][autoit][/autoit][autoit]

#Region ### START Koda GUI section ###
$Form_GUI = GUICreate("Incident Collector", 882, 817, 512, 135)
$Input_IncidentAntragsteller = GUICtrlCreateInput("", 8, 128, 121, 21)
$Combo_Niederlassung = GUICtrlCreateCombo("", 168, 128, 145, 25)
GUICtrlSetData(-1, "Niederlassung 01|Niederlassung 02|Niederlassung 03|Niederlassung 04")
$Combo_Klassifizierung = GUICtrlCreateCombo("", 352, 200, 121, 25)
GUICtrlSetData(-1, "Hardware|Software|Network|Sonstiges")
$Edit_Fehlerbeschreibung = GUICtrlCreateEdit("", 8, 424, 865, 345)
GUICtrlSetData(-1, "Text...")
$Button_Senden = GUICtrlCreateButton("Senden", 336, 784, 75, 25)
$Button_Beenden = GUICtrlCreateButton("Beenden", 464, 784, 75, 25)
$Input_Abteilung = GUICtrlCreateInput("", 352, 128, 121, 21)
$Label_IncidentAntragsteller = GUICtrlCreateLabel("Incident Antragsteller: ", 8, 104, 132, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label_Abteilung = GUICtrlCreateLabel("Abteilung :", 352, 104, 72, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Input_Telefonnummer = GUICtrlCreateInput("", 512, 128, 121, 21)
$Label_Telefonnummer = GUICtrlCreateLabel("Telefonnummer: ", 512, 104, 101, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label_Niederlassung = GUICtrlCreateLabel("Niederlassung: ", 168, 104, 87, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label_Ausloeser = GUICtrlCreateLabel("Auslöser: ", 512, 176, 60, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label_Klassifizierung = GUICtrlCreateLabel("Klassifizierung: ", 352, 176, 94, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Combo_Ausloeser = GUICtrlCreateCombo("", 512, 200, 121, 25)
GUICtrlSetData(-1, "Workstation|Notebook|Printer|Network Device")
$Label_DeviceBez = GUICtrlCreateLabel("Device Bezeichnung: ", 672, 176, 135, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Date = GUICtrlCreateDate("2013/01/25 17:23:5", 672, 128, 186, 21)
$Label_Date = GUICtrlCreateLabel("Datum: ", 672, 104, 51, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label_Fehlerbeschreibung = GUICtrlCreateLabel("Fehlerbeschreibung: ", 8, 400, 121, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Input_Betreff = GUICtrlCreateInput("", 8, 352, 865, 21)
$Label_Betreff = GUICtrlCreateLabel("Incident Kurzbeschreibung: ", 8, 328, 216, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Input_DeviceBez = GUICtrlCreateInput("", 672, 200, 121, 21)
$Combo_Zustaendigkeit = GUICtrlCreateCombo("", 8, 272, 145, 25)
GUICtrlSetData(-1, "IT Service|IT Infrastructure|SAP Competence Center")
$Label_Zusaendigkeit = GUICtrlCreateLabel("Zuständigkeit: ", 8, 248, 84, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Combo_IncidentPrio = GUICtrlCreateCombo("", 168, 200, 145, 25)
GUICtrlSetData(-1, "P01 - Kritisch|P02 - Hoch|P03 - Normal|P04 - Niedrig")
$Label_IncidentPrio = GUICtrlCreateLabel("Incident Priorität: ", 168, 176, 115, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Pic1 = GUICtrlCreatePic(@ScriptDir & '\xxx_headline.jpg', 1, 0, 880, 76)
$Combo_Typ = GUICtrlCreateCombo("", 8, 200, 121, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Störung|Serviceanfrage")
$Label_Typ = GUICtrlCreateLabel("Typ: ", 8, 176, 33, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button_Attachment = GUICtrlCreateButton("Attachment", 512, 272, 75, 25)
$Input_Attachment = GUICtrlCreateInput("", 608, 272, 249, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit][autoit][/autoit][autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

[/autoit][autoit][/autoit][autoit]

Case $Button_Attachment
$of_Input_Attachment = FileOpenDialog("Select File : ", @WorkingDir & "\C:\", "Text Files (*.*)", 1, "")
GUICtrlSetData($Input_Attachment, $of_Input_Attachment)

[/autoit][autoit][/autoit][autoit]

Case $Button_Beenden
Exit

[/autoit][autoit][/autoit][autoit]

Case $Button_Senden

[/autoit][autoit][/autoit][autoit]

; ------------ Outlook COM

[/autoit][autoit][/autoit][autoit]

Global $oOutlook = _OL_Open()
If @error <> 0 Then Exit MsgBox(16, "Fehler", "Error creating a connection to Outlook. @error = " & @error & ", @extended = " & @extended)

[/autoit][autoit][/autoit][autoit]

; ----------- Speichert E-Mail im Entwurfordner
;_OL_ItemCreate($oOutlook, $olMailItem,"" ,"", "Subject="&GuiCtrlRead($Input_Betreff), "BodyFormat=" & $olFormatHTML, "HTMLBody=Fehlerbeschreibung"&@crlf&GuiCtrlRead($Edit_Fehlerbeschreibung), "To=" & GuiCtrlRead($sEmail))
; If @error Then
; MsgBox(16,"Fehler",@error&@crlf&@extended )
; EndIf

[/autoit][autoit][/autoit][autoit]

; ----------- direktes senden wir Wrapper...
_OL_Wrapper_SendMail($oOutlook, $sEmail,"","", GuiCtrlRead($Input_Betreff), GuiCtrlRead($Label_Date) & GUICtrlRead($Date) & @CRLF & @CRLF & GuiCtrlRead($Label_Typ) & GuiCtrlRead($Combo_Typ) & @CRLF & @CRLF & GuiCtrlRead($Label_IncidentAntragsteller) & GuiCtrlRead($Input_IncidentAntragsteller) & @CRLF & @CRLF & GuiCtrlRead($Label_Niederlassung) & GuiCtrlRead($Combo_Niederlassung) & @CRLF & @CRLF & GuiCtrlRead($Label_Abteilung) & GuiCtrlRead($Input_Abteilung) & @CRLF & @CRLF & GuiCtrlRead($Label_Telefonnummer) & GuiCtrlRead($Input_Telefonnummer) & @CRLF & @CRLF & GuiCtrlRead($Label_IncidentPrio) & GuiCtrlRead($Combo_IncidentPrio) & @CRLF & @CRLF & GuiCtrlRead($Label_Klassifizierung) & GuiCtrlRead($Combo_Klassifizierung) & @CRLF & @CRLF & GuiCtrlRead($Label_Ausloeser) & GuiCtrlRead($Combo_Ausloeser) & @CRLF & @CRLF & GuiCtrlRead($Label_DeviceBez) & GuiCtrlRead($Input_DeviceBez) & GuiCtrlRead($Input_Attachment) & @CRLF & @CRLF & @CRLF & GUICtrlRead($Label_Fehlerbeschreibung) & @CRLF & GuiCtrlRead($Edit_Fehlerbeschreibung),"", "")

[/autoit][autoit][/autoit][autoit]

MsgBox(64, "Info", "Ihr Incident wurde erfolgreich gesendet an: '" & $sEmail & "'!")

[/autoit][autoit][/autoit][autoit]

; In diesem Beispiel ist der Bodytext im HTML-Format angegeben
;_OL_Wrapper_SendMail($oOutlook, Empfänger, cc, bcc, Betreff, "Body fett normal.", Attachments, $olFormatHTML, $olImportanceHigh)

[/autoit][autoit][/autoit][autoit]

_OL_Close($oOutlook)

[/autoit][autoit][/autoit][autoit]

EndSwitch
WEnd

[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit]

qwert23

Dazu mußt Du die Reihenfolge im _OL_WrapperSendMail beachten....
Der 7. Parameter steuert die Anhänge, deshalb sieht Deine Anweisung so aus...

[autoit]

_OL_Wrapper_SendMail($oOutlook, $sEmail,"","", GuiCtrlRead($Input_Betreff), GuiCtrlRead($Label_Date) & GUICtrlRead($Date) & @CRLF & @CRLF & GuiCtrlRead($Label_Typ) & GuiCtrlRead($Combo_Typ) & @CRLF & @CRLF & GuiCtrlRead($Label_IncidentAntragsteller) & GuiCtrlRead($Input_IncidentAntragsteller) & @CRLF & @CRLF & GuiCtrlRead($Label_Niederlassung) & GuiCtrlRead($Combo_Niederlassung) & @CRLF & @CRLF & GuiCtrlRead($Label_Abteilung) & GuiCtrlRead($Input_Abteilung) & @CRLF & @CRLF & GuiCtrlRead($Label_Telefonnummer) & GuiCtrlRead($Input_Telefonnummer) & @CRLF & @CRLF & GuiCtrlRead($Label_IncidentPrio) & GuiCtrlRead($Combo_IncidentPrio) & @CRLF & @CRLF & GuiCtrlRead($Label_Klassifizierung) & GuiCtrlRead($Combo_Klassifizierung) & @CRLF & @CRLF & GuiCtrlRead($Label_Ausloeser) & GuiCtrlRead($Combo_Ausloeser) & @CRLF & @CRLF & GuiCtrlRead($Label_DeviceBez) & GuiCtrlRead($Input_DeviceBez) & GuiCtrlRead($Input_Attachment) & @CRLF & @CRLF & @CRLF & GUICtrlRead($Label_Fehlerbeschreibung) & @CRLF & GuiCtrlRead($Edit_Fehlerbeschreibung), GuiCtrlRead($Input_Attachment))

[/autoit]