#include <GUIConstantsEx.au3>
#include <Word.au3>
#include <outlook.au3>

Global $sTOSend
Global Const $Name = 'Marcel'
Dim $inputArray[20]
Dim $inputReadArray[20]
Dim $cBoxArray[24]

Dim $cBoxStringInsert[24]
$cBoxStringInsert[1] = "Für eine Zustellung Ihrer Sendungen benötigen wir eine Empfänger Telefonnummer.{Enter 2}"
$cBoxStringInsert[2] = "Für eine Zustellung Ihrer Sendungen benötigen wir eine alternative Telefonnummer Ihres{Enter}Empfängers da die angegebene Telefonnummer nicht richtig zu sein scheint.{Enter 2}"
$cBoxStringInsert[3] = "Für eine Zustellung Ihrer Sendungen benötigen wir eine Rechnung für die Verzollung.{Enter}Ich würde Sie bitten mir diese als PDF  zukommen zu lassen als Antwort auf diese Mail.{Enter 2}"
$cBoxStringInsert[4] = "Ihr Empfänger wurde mehrfach vom Chinesischen Zoll aufgefordert die Verzollung Ihrer{Enter}Sendung vor zu nehmen. Leider hat Ihr Empfänger bis heute nicht reagiert und die benötigten Unterlagen eingereicht.{Enter 2}Der Chinesische Zoll würde Sie bitten sich mit dem Empfänger in Verbindung zu setzen und{Enter}Ihn zu einer Verzollung zu bewegen. Sollte dies nicht möglich sein würden wir Sie bitten uns{Enter}Eine Anweisung zukommen zu lassen wie wir mit Ihrer Sendung weiter zu verfahren haben{Enter}Da diese nicht mehr länger im Zoll verbleiben darf.{Enter 2}"
$cBoxStringInsert[5] = "Ihr Empfänger hat die Verzollung Ihrer Sendung verweigert. Wir würden Sie um eine{Enter}Anweisung bitten wie wir mit Ihrer Sendung weiter zu verfahren haben{Enter 2}Ich bitte Sie da drauf zu achten das im Falle eines Rücktransports  der Türkische Zoll{Enter}Kosten in Höhe von $ 250 USD  erhebt die zuzüglich zu den Rücksendekosten hinzukommen.{Enter 2}"
$cBoxStringInsert[6] = "Für eine Zustellung Ihrer Sendungen benötigen wir eine alternative Adresse und Telefonnummer{enter}Da ihr Empfänger auf der angegebenen Adresse nicht ausfindig gemacht werden kann. Und die{Enter}Angegeben Telefonnummer nicht beantwortet wird Bzw. nicht richtig ist.{ENTER 2}Wir würden Sie bitten uns die Benötigten Daten als Antwort auf diese Email zukommen zu lassen.{Enter 2}"
$cBoxStringInsert[7] = "Ihr Empfänger hat die Verzollung Ihrer Sendung verweigert.{enter}Der Russische  Zoll würde Sie bitten sich mit dem Empfänger in Verbindung zu setzen und{enter}Ihn zu einer Verzollung zu bewegen{enter}Sollte Ihr Empfänger diese Sendung nicht bis ausschließlich DATUM   verzollt haben{enter}Müssen wir laut Örtlicher Gesetzgebung diese Sendung an Sie kosten pflichtig zurück schicken,{enter}da einer Vernichtung von unverzollten Wahren nicht möglich ist.{Enter 2}"
$cBoxStringInsert[8] = "Ihr Empfänger wurde mehrfach vom Ukrainischen Zoll aufgefordert die Verzollung Ihrer{enter}Sendung vor zu nehmen. Leider hat Ihr Empfänger bis heute nicht reagiert und die benötigten{enter}Unterlagen eingereicht.{enter 2}Der Ukrainischen Zoll würde Sie bitten sich mit Ihrem Empfänger in Verbindung zu setzen und {Enter}Ihn zu einer Verzollung zu bewegen.{enter 2}Sollte Ihr Empfänger diese Sendung nicht bis ausschließlich  DATUM   verzollt haben{enter}Müssen wir laut Örtlicher Gesetzgebung diese Sendung an Sie kosten pflichtig zurück schicken{enter}da einer Vernichtung von unverzollten Wahren nicht möglich ist.{enter}Ebenfalls wird eine Änderung des Empfängers  oder der Rechnung nicht mehr vom Zoll{enter}Akzeptiert nach dem sich die Sendung bereits im Zoll befindet.{Enter 2}"
$cBoxStringInsert[9] = "Ihr Empfänger hat es verweigert die Zoll abgaben in Höhe von ( KOSTEN ) zu bezahlen{enter}Wir würden Sie um eine Anweisung bitten wie wir mit Ihrer Sendung weiter zu verfahren haben.{enter 2}Sollten Sie die Einfuhrabgaben für Ihren Empfänger übernehmen wollen würde ich Sie bitten mir dies{enter}In Englischer Sprache unter Angabe Ihrer Kundennummer und der Paketnummer auf dieser Email zu{enter}Bestätigen.{enter 2}Sollte die Kostenübernahme nicht in Ihrem Sinne sein würden wir Sie um eine Anweisung{enter}Bitten wie wir mit ihrer Sendung weiter zu verfahren haben.{enter 2}"
$cBoxStringInsert[10] = "Ihr Empfänger hat es verweigert die Zahlung der Transportkosten in Höhe von ( KOSTEN ) zu bezahlen{enter}Wir würden Sie um eine Anweisung bitten wie wir mit Ihrer Sendung weiter zu verfahren haben.{enter 2}Sollten Sie die Einfuhrabgaben für Ihren Empfänger übernehmen wollen würde ich Sie bitten mir dies{enter}In Englischer Sprache unter Angabe Ihrer Kundennummer und der Paketnummer auf dieser Email zu{enter}Bestätigen.{enter 2}Sollte die Kostenübernahme nicht in Ihrem Sinne sein würden wir Sie um eine Anweisung{enter}Bitten wie wir mit ihrer Sendung weiter zu verfahren haben.{enter 2}"
$cBoxStringInsert[11] = "Ihr Empfänger hat die Annahme Ihrer Sendung verweigert.{enter}Wir würden Sie um eine Anweisung bitten wie wir mit ihrer Sendung weiter zu verfahren haben.{enter 2}"
$cBoxStringInsert[12] = "Für die Verzollung Ihrer Sendung würde der Amerikanische Zoll ein „  FORM   „ benötigen.{enter}Diese finden Sie im Anhang an diese Mail. Ich würde Sie bitten mir diese ausgefüllt und mit{enter}Stempel und Unterschrift versehen als PDF Dokument zukommen zu lassen.{enter 2}"
$cBoxStringInsert[13] = "Für eine Rückholung Ihrer Sendung aus dem Zoll von Shanghai fordert der Zoll von Ihnen:{enter 2}1 Ein schreiben auf Firmenbriefpapier in Englischer Sprache Gerichtet an den Zoll{ENTER}In Shanghai. ( Dear China Customs ) Bitte keine andere anrede verwenden.{enter 2}2 Die die Anfrage diese Sendung an Sie zurück zu schicken.{enter 2}3 Eine Angabe einer Begründung warum diese Sendung an Sie zurück gesendet werden muss.{enter}Hier werden vom Zoll nur akzeptiert, falsche Wahre, falscher Empfänger oder Fehlende{enter}Dokumente die der Empfänger nicht einreichen kann.{enter 2}Im Fall falscher Ware muss angegeben werden welche Ware sich in der Sendung{enter}Befindet und welche der Empfänger hätte bekommen sollen.{enter 2}Im Fall eines falschen Empfängers muss die Adresse angegeben werden an denn die{enter}Sendung jetzt geschickt wurde und an welche Adresse diese hätte geschickt werden müssen.{enter}Des Weiteren verlangt der Zoll in diesem Fall das Einreichen einer Kopie der Original{enter}Kaufverträge / Purchaseorder gestempelt und Unterschrieben vom Absender und{enter}Empfänger. Aus dieser muss ersichtlich sein das der Empfänger eine andere wahre{enter}Geordert hat.{enter 2}Ebenfalls verlangt der Zoll das Einreichen der vollständigen Email Kommunikation{enter}Zwischen Ihnen und dem Empfänger über dieses Problem.{enter 2}4 Die Bestätigung der Übernahme der Rücktransport Kosten müssten ebenfalls in diesem{enter}Schreiben bestätigt werden.{enter 2}5 Das Schreiben muss mit einem Stempel und einer Unterschrift versehen sein.{enter 2}6 Sollte der Grund ein Fehlendes Dokument sein das der Empfänger nicht einreichen kann{enter}So reicht dies als Begründung vollkommen aus. Das Dokument das nicht beigebracht{enter}werden kann sollte in dem Schreiben genannt werden.{enter}In diesem Fall wird kein Kaufvertrag, purchaseorder, Emailverlauf benötigt.{enter 2}Ich würde sie bitten mir die benötigten Dokumente als PDF zu kommen zu lassen.{enter 2}"
$cBoxStringInsert[14] = "Wir haben Ihre Sendung mehrfach versucht bei Ihrem Empfänger zuzustellen.{ENTER}Leider war es unserem Fahrer nicht möglich Ihren Kunden an zu treffen.{ENTER}Ebenfalls ist es uns nicht möglich Ihren Empfänger unter der angegebenen Rufnummer{enter}zu erreichen da diese leider nicht beantwortet wird.{ENTER 2}Wir würden Sie hiermit um alternative Kontaktdaten bitten oder um eine Anweisung{enter}Wie wir mit Ihrer Sendung weiter zu verfahren haben.{enter 2}"
$cBoxStringInsert[15] = "Leider konnten wir ihren Empfänger such unter der neunen Telefonnummer nicht erreichen.{ENTER}Wir würden Sie um alternative Kontaktdaten bitten oder um eine Anweisung wie wir mit{enter}Ihrer Sendung weiter zu verfahren haben.{enter 2}"
$cBoxStringInsert[16] = "Ihr Empfänger hat beim Zoll angegeben dass die beigefügte Rechnung nicht richtig ist.{enter}Wir würden eine korrigierte Rechnung benötigen mit einem beigefügtem {enter}Erklärungsschreiben in englischer Sprache auf Firmen Briefpapier worin erklärt wird warum die {enter}Rechnung geändert werden muss und wie es zu diesem Fehler gekommen ist.{enter 2}Ich würde sie bitten mir dies als PDF Datei als Antwort auf diese Mail zukommen zu lassen.{enter 2}"
$cBoxStringInsert[17] = "Für die Rückholung Ihrer Sendung benötigen wir von Ihnen ein Schreiben in englischer{enter}Sprache in dem Sie die Rücksendung anfragen und erklären das Sie für die Rücktransport kosten{enter}Mit Ihrer Kundennummer  ( Kundennummer ) aufkommen werden.{enter}Als Bezug in diesem Schreiben würden wir sie bitten die Trackingnummer zu verwenden.{enter 2}Wir würden Sie bitten und dieses Schreiben als PDF Datei zukommen zu lassen.{enter 2}"
$cBoxStringInsert[18] = "Wir haben heute eine Nachricht vom Zoll in San Marino erhalten das Ihre Sendung{Enter}Ohne ein Original T2 Dokument  in San Marion eingetroffen ist. Ohne dieses Dokument{enter}Ist eine Verzollung Ihrer Sendung leider nicht möglich.{enter 2}Wir würden Sie bitten das originale T2 Dokument an die folgende Adresse zu schicken{enter}Und uns die Paketnummer bekannt zu geben unter welcher das Dokument nach San Marion{enter}Verschickt wird.{Enter 2}"
$cBoxStringInsert[19] = "Ihr Empfänger wurde mehrfach vom Brasilianischen Zoll aufgefordert die Verzollung Ihrer{enter}Sendung vor zu nehmen. Leider hat Ihr Empfänger bis heute nicht reagiert und die benötigten{enter}Unterlagen eingereicht.{enter 2}Laut Geltender FDA Bestimmungen wir ihre Sendung maximal bis zu 45 Tage nach dem Importdatum{enter}Gehalten. Nach Ablauf dieser Zoll Frist wird diese Sendung von der FDA kosten Pflichtig an Sie{enter}Retourniert. Ich bitte Sie hierbei zu beachten das der Zoll Sie für alle angefallen Kosten in Regress{enter}nehmen wird und diese an Sie zurück belastet. Dies umfasst Lager Kosten, Rückversand,{enter}Broker- , Zoll- , und Administrative –Kosten.{enter 2}Um diese zu verkommen würden wir Sie bitten sich mit Ihrem Empfänger in Kontakt zu setzen{enter}Und Ihn zu einer Verzollung zu bewegen.{enter 2}Sollte Ihr Empfänger nicht zu einer Verzollung zu bewegen sein würden wir Sie bitten uns{Enter}Schnellst möglich eine Rückholungsanweisung zukommen zu lassen um weitere Lager Kosten zu{enter}Vermeiden.{Enter 2}"
$cBoxStringInsert[20] = "Ihre Sendung übersteigt das import-Limit von 200 € für diese Region in Russland.{enter}Das Limit wird berechnet anhand der Transport Kosten + den angegebenen Warenwert.{enter}Diese darf einen Gesamt Betrag von 200 Euro nicht übersteigen.{enter 2}Wir würden Sie bitten  und eine alternative Zustellungsadresse in Moscow oder{enter}St. Petersburg zukommen zu lassen da diese Regionen von der Import-Beschränkung{enter}Ausgenommen sind. Ebenfalls würden wir Sie bitten uns eine abgeänderte Rechnung{enter}Ausgestellt auf den neuen Empfänger mit Angabe eines vollständigen Kontaktnamens{enter}Und einer direkten Telefonnummer   zukommen zu lassen.{enter 2}Wir müssen Sie im Vorfeld darüber informieren das einer Änderung des Empfängers{enter}Vom örtlichen Zoll genehmigt werden muss und wir keine Garantie geben können das{enter}Dies durch die Behörden Akzeptiert wir.{ Enter 2}Sollte es Ihnen nicht möglich sein einen alternativen{enter}Empfänger in einem dieser Gebiete zu Bennen{enter}Sind wir nach Landesgesetz dazu verpflichtet ihnen die Sendung Kosten Pflichtig zu retournieren da{enter}Die Vernichtung von Zollpflichtiger  Ware in Russland ausgeschlossen ist.{enter 2}Sollten sich die Sendung nach Ablauf der Zollfrist  ( DATUM) immer noch im Zoll befinden{enter}So wird diese Automatisch an Sie returniert.{enter 2}"
$cBoxStringInsert[21] = "Ihre Sendung wurde vom örtlichen Zoll gestoppt.  Eine Verzollung von Chemischen-, Kosmetischen{enter}Pulver- , und Flüssigen Waren ist leider mit UPS nicht möglich in Russland. Diese Produkte{enter}Unterliegen einem Epidemiological Control Importverfahren für die Verzollung das wir als UPS{enter}Leider nicht anbieten können da dies nur Transportgesellschaften erlaubt ist die{enter}Ansässig sind im auf dem Flughafengelände  was auf UPS nicht zu trifft.{enter 2}Laut örtlicher Gesetzgebung müssen wir diese Sendung an Sie returnieren.{enter 2}"
$cBoxStringInsert[22] = "Es ist momentan nicht möglich für Private Personen Zollpflichtige Ware zu erhalten.{enter}Das Land Russland hat ein Importverbot erlassen das es Privaten Personen untersagt{enter}Sendungen zu verzollen. Es gelten Ebenfalls als privat Sendungen Waren die von einer{Enter}Firma bestellt wurden aber von einer Privatperson bezahlt wurden.{enter}Die Offizielle Bekanntmachung entnehmen Sie bitte der Russischen Zoll Seiten{enter 2}Auszug:{enter}There is a temporary suspension on the import of non-document shipments to{enter}private individuals in the Russian Federation. Any such shipments received will{enter}be automatically returned to the shipper.{enter 2}Laut örtlicher Gesetzgebung müssen wir diese Sendung an Sie returnieren.{enter 2}"
$cBoxStringInsert[23] = "Leider war es uns nicht möglich Ihren Empfänger innerhalb der Firma ausfindig zu machen.{enter}Für eine Zustellung benötigen wir  einen vollständigen Kontaktnamen, die Angabe einer{enter}Einer Abteilung und eine Telefonnummer mit direkter Durchwahl.{enter}Wir würden Sie bitten uns diese Daten als Antwort auf diese Mail zukommen zu lassen.{enter 2}"

Dim $cBoxString[24]
$cBoxString[1] = "Fehlende Telefonnummer"
$cBoxString[2] = "Neue Telefonnummer angegebene Falsch"
$cBoxString[3] = "Fehlende Rechnung"
$cBoxString[4] = "China Puschen"
$cBoxString[5] = "TR verzollung verweigert"
$cBoxString[6] = "Adresse und Telefonnummer Falsch"
$cBoxString[7] = "Russlad Verzollung verweigert"
$cBoxString[8] = "Ukraine 10 Tage DDl nicht verzollt"
$cBoxString[9] = "Verweigerte Zollkosten"
$cBoxString[10] = "Verweigert Transportkosten "
$cBoxString[11] = "Sendung verweigert"
$cBoxString[12] = "Zoll Form USA fehlt"
$cBoxString[13] = "RTS Shanghai"
$cBoxString[14] = "3x Not In PH# NA"
$cBoxString[15] = "Empfänger nicht erreicht unter der neuen Nummer"
$cBoxString[16] = "Rechnungs Änderung China"
$cBoxString[17] = "Rückholung nicht Shanghai"
$cBoxString[18] = "T2 San Marino"
$cBoxString[19] = "Nicht Verzollung FDA Brasilien"
$cBoxString[20] = "Value Limit 200 Euro in Russland"
$cBoxString[21] = "Chemikalien Russland"
$cBoxString[22] = "Privat Sendungen Russland"
$cBoxString[23] = "Große Firma Name, Abt, Durchwahl"

#region ### START Koda GUI section ### Form=


$Form1 = GUICreate("Formschreiben erstellen", 716, 600, 274, 292)

$Group1 = GUICtrlCreateGroup("", 32, 16, 657, 153)
$Label1 = GUICtrlCreateLabel("Trackingnummer:", 40, 39, 83, 17)
$Label2 = GUICtrlCreateLabel("Name:", 40, 64, 83, 17)
$Label3 = GUICtrlCreateLabel("Adresse:", 40, 89, 83, 17)
$Label4 = GUICtrlCreateLabel("Ort / Plz:", 40, 115, 83, 17)
$Label5 = GUICtrlCreateLabel("Telefon:", 40, 140, 83, 17)
$Label6 = GUICtrlCreateLabel("Faxnummer", 300, 39, 99, 17)
$Label7 = GUICtrlCreateLabel("Kosten", 300, 64, 75, 17)
$Label8 = GUICtrlCreateLabel("Account", 300, 89, 75, 17)
$Label9 = GUICtrlCreateLabel("Emailadresse", 300, 115, 102, 17)
$Label11 = GUICtrlCreateLabel("Bearbeitername", 300, 140, 102, 17)
$Button6 = GUICtrlCreateButton("Neu", 560, 39, 102, 20)
GUICtrlCreateGroup("", -99, -99, 1, 1)

$Group2 = GUICtrlCreateGroup("", 32, 176, 657, 369)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("", 32, 544, 657, 41)
$Button3 = GUICtrlCreateButton("Erstellen", 150, 557, 110, 20)
$Button4 = GUICtrlCreateButton("Mail", 300, 557, 110, 20)
$Button5 = GUICtrlCreateButton("Exit", 450, 557, 110, 20)
$Group3 = GUICtrlCreateGroup("", 40, 510, 640, 30)
$label10 = GUICtrlCreateLabel("", 60, 522, 600, 15)
$progress = GUICtrlCreateProgress(130, 520, 540, 15)
GUICtrlSetState(-1, $GUI_HIDE)
GUICtrlSetColor(-1, 0xff0000) ; Red
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
_create_input()
_create_cBox()
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE, $Button5
            FileDelete(@TempDir & '\word.jpg')
            FileDelete(@TempDir & '\outlook.jpg')
            Exit
        Case $Button6
            _clear_input()
        Case $Button3
            $textString = _create_text()
            _create_word($textString)
        Case $Button4
            $textString = _create_text()
            _create_Mail($textString)
    EndSwitch
WEnd


Func _create_input()
    Local $Abstand = 37
    For $i = 1 To 5
        $inputArray[$i] = GUICtrlCreateInput("", 128, $Abstand, 145, 21)
        $Abstand += 25 ; um 20 erhöhen
    Next
    $Abstand = 37
    For $i = 1 To 5
        $inputArray[$i + 5] = GUICtrlCreateInput("", 380, $Abstand, 145, 21)
        $Abstand += 25 ; um 20 erhöhen
    Next
EndFunc   ;==>_create_input

Func _create_cBox()
    Local $Abstand1 = 120, $Abstand2 = 210

    For $i = 1 To UBound($cBoxString) - 1
        $cBoxArray[$i] = GUICtrlCreateCheckbox($cBoxString[$i], $Abstand1, $Abstand2, 200, 25)
        $Abstand2 += 22
        If $i = 12 Then
            $Abstand1 = 430
            $Abstand2 = 210
        EndIf

    Next
EndFunc   ;==>_create_cBox


Func _clear_input()
    For $i = 1 To UBound($inputArray) - 1
        GUICtrlSetData($inputArray[$i], "")
    Next
	For $i = 1 To UBound($cBoxArray)-1
		GUICtrlSetState($cBoxArray[$i],$GUI_UNCHECKED)
	Next
    GUICtrlSetData($label10, "GUI Cleared")
    GUICtrlSetState($progress, $GUI_HIDE)
EndFunc   ;==>_clear_input

Func _create_text()
    Local $sString = ''
    For $i = 1 To UBound($inputArray) - 1
        $inputReadArray[$i] = GUICtrlRead($inputArray[$i])
    Next
    For $i = 1 To UBound($cBoxArray) - 1
        If GUICtrlRead($cBoxArray[$i]) = $GUI_CHECKED Then
            $sString = $sString & $cBoxStringInsert[$i] & @CR
        EndIf
    Next

    $sTOSend = @CR & 'Sehr geehrter UPS Kunde' & @CR & @CR & _
            'Wir haben ein Problem bei der Zustellung Ihrer Sendung: ' & $inputReadArray[1] & @CR & @CR & _
            'an: ' & $inputReadArray[2] & @CR & @TAB & $inputReadArray[3] & @CR & @TAB & $inputReadArray[4] & _
            @CR & @TAB & $inputReadArray[5] & @CR & @TAB & $inputReadArray[6] & @CR & @CR & $sString & @CR & @CR & @CR & _
            'Mit freundlichen Grüßen' & @CR & $inputReadArray[10]

    Return ($sTOSend)
EndFunc   ;==>_create_text
Func _create_word($sText)
    GUICtrlSetData($label10, "Starte Word...")
    GUICtrlSetState($progress, $GUI_SHOW)
    GUICtrlSetData($progress, 35)
	$newDocx = _create_docx($Name)
	MsgBox(2,"",$newDocx)
    BlockInput(1)
    $word = ObjCreate("Word.Application")
    $word.visible = False
    $word.ChangeFileOpenDirectory(@ScriptDir)
    $word.Documents.open($newDocx)
    WinActivate($newDocx)
    GUICtrlSetData($progress, 70)
    Send($sText)

    BlockInput(0)
    GUICtrlSetData($progress, 100)
    GUICtrlSetData($label10, "Fertig...")
    $word.visible = True
EndFunc   ;==>_create_word

Func _create_Mail($sText)
    $name2 = GUICtrlRead($inputArray[10])
    $oOutlook = ObjCreate("Outlook.Application")
    $oOl = $oOutlook.CreateItem($olMailItem)
    $oFolder = $oOutlook.GetNamespace("MAPI").GetDefaultFolder($olFolderInbox)
    With $oOl
        .To = $name2
        .body = $sText
        .save
        .Move($oFolder)
    EndWith
EndFunc   ;==>_create_Mail

Func _create_docx($FileName)
	If Not FileExists(@ScriptDir & '\Daten') Then
		DirCreate(@ScriptDir & '\Daten')
	EndIf
	Local $DATEINAME = $FileName & '_' & @YEAR & '_' & @MON & '_' & @MDAY & ' - ' & @HOUR & '_' & @MIN & '_' & @SEC &'.docx'
	FileWrite(@ScriptDir & '\Daten\' & $DATEINAME,'')
	Return($DATEINAME)
EndFunc