API tools faq
paste
Guest User

Untitled

a guest
Feb 18th, 2018
98
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 38.00 KB | None | 0 0
raw download clone embed print report
  1. #cs ----------------------------------------------------------------------------
  2.  
  3.  AutoIt Version: 3.3.6.1
  4.  Author:         myName
  5.  
  6.  Script Function:
  7.     Template AutoIt script.
  8.  
  9. #ce ----------------------------------------------------------------------------
  10.  
  11. ; Script Start - Add your code below here
  12.  
  13. #include <GUIConstants.au3>
  14.  
  15. #Region ### START Koda GUI section ### Form=c:\autoit\gui\kodak\forms\de es.kxf
  16. $Form1_1 = GUICreate("Form1", 839, 757, 187, 133)
  17. GUISetFont(8, 800, 0, "MS Sans Serif")
  18. $Label1 = GUICtrlCreateLabel("Trackingnummer", 16, 40, 97, 17)
  19. $Input1 = GUICtrlCreateInput("", 152, 32, 297, 21)
  20. $Label2 = GUICtrlCreateLabel("Name", 16, 80, 36, 17)
  21. $Input2 = GUICtrlCreateInput("", 152, 72, 297, 21)
  22. $Label3 = GUICtrlCreateLabel("Adresse", 16, 120, 49, 17)
  23. $Input3 = GUICtrlCreateInput("", 152, 112, 297, 21)
  24. $Label4 = GUICtrlCreateLabel("Ort / Plz", 16, 160, 52, 17)
  25. $Input4 = GUICtrlCreateInput("", 152, 152, 297, 21)
  26. $Label5 = GUICtrlCreateLabel("Telefon", 16, 200, 47, 17)
  27. $Input5 = GUICtrlCreateInput("", 152, 192, 297, 21)
  28. $Checkbox1 = GUICtrlCreateCheckbox("Fehlende Telefonnummer     ", 24, 256, 233, 17)
  29. $Checkbox2 = GUICtrlCreateCheckbox("Neue Telefonnummer angegebene Falsch", 24, 288, 305, 17)
  30. $Checkbox3 = GUICtrlCreateCheckbox("Fehlende Rechnung", 24, 320, 241, 17)
  31. $Checkbox4 = GUICtrlCreateCheckbox("China Puschen ", 24, 352, 225, 17)
  32. $Checkbox5 = GUICtrlCreateCheckbox("TR verzollung verweigert  ", 24, 384, 257, 17)
  33. $Checkbox6 = GUICtrlCreateCheckbox("Adresse und Telefonnummer Falsch", 24, 416, 281, 17)
  34. $Checkbox7 = GUICtrlCreateCheckbox("Russlad Verzollung verweigert ", 24, 456, 265, 17)
  35. $Checkbox8 = GUICtrlCreateCheckbox("Ukraine 10 Tage DDl nicht verzollt", 24, 488, 265, 17)
  36. $Checkbox9 = GUICtrlCreateCheckbox("Verweigerte Zollkosten ", 24, 520, 209, 17)
  37. $Checkbox10 = GUICtrlCreateCheckbox("Verweigert Transportkosten ", 24, 552, 209, 17)
  38. $Checkbox11 = GUICtrlCreateCheckbox("Sendung verweigert", 24, 592, 209, 17)
  39. $Checkbox12 = GUICtrlCreateCheckbox("Zoll Form USA fehlt", 24, 624, 241, 17)
  40. $Checkbox13 = GUICtrlCreateCheckbox("RTS Shanghai", 24, 656, 193, 25)
  41. $Button1 = GUICtrlCreateButton("Brief Erstellen", 256, 696, 377, 41, 0)
  42. $Button2 = GUICtrlCreateButton("Neu", 16, 696, 209, 41, 0)
  43. $Checkbox14 = GUICtrlCreateCheckbox("3x Not In PH# NA", 416, 288, 161, 17)
  44. $Checkbox15 = GUICtrlCreateCheckbox("Empfänger nicht erreicht unter der neuen Nummer", 416, 320, 385, 17)
  45. $Checkbox16 = GUICtrlCreateCheckbox("Rechnungs Änderung China", 416, 352, 273, 17)
  46. $Checkbox17 = GUICtrlCreateCheckbox("Rückholung nicht Shanghai", 416, 384, 257, 17)
  47. $Checkbox18 = GUICtrlCreateCheckbox("T2 San Marino", 416, 416, 249, 17)
  48. $Checkbox19 = GUICtrlCreateCheckbox("Nicht Verzollung FDA Brasilien", 416, 448, 241, 17)
  49. $Checkbox20 = GUICtrlCreateCheckbox("Value Limit 200 Euro in Russland", 416, 480, 265, 17)
  50. $Checkbox21 = GUICtrlCreateCheckbox("Chemikalien Russland ", 416, 512, 233, 17)
  51. $Checkbox22 = GUICtrlCreateCheckbox("Privat Sendungen Russland", 416, 544, 249, 17)
  52. $Checkbox23 = GUICtrlCreateCheckbox("Große Firma Name, Abt, Durchwahl ", 416, 576, 249, 17)
  53. $Label6 = GUICtrlCreateLabel("Faxnummer", 496, 40, 99, 17)
  54. $Input6 = GUICtrlCreateInput("", 624, 40, 145, 21)
  55. $Label7 = GUICtrlCreateLabel("Kosten", 496, 80, 75, 17)
  56. $Input7 = GUICtrlCreateInput("", 624, 80, 145, 21)
  57. $Label8 = GUICtrlCreateLabel("Account", 496, 120, 75, 17)
  58. $Input8 = GUICtrlCreateInput("", 624, 120, 145, 21)
  59. $Label9 = GUICtrlCreateLabel("Emailadresse", 492, 160, 102, 17)
  60. $Input9 = GUICtrlCreateInput("", 624, 160, 145, 21)
  61. $Button3 = GUICtrlCreateButton("Speichern", 480, 200, 113, 41, 0)
  62. $Button4 = GUICtrlCreateButton("Mail erstellen", 664, 696, 161, 41, 0)
  63. $Button5 = GUICtrlCreateButton("Suchen", 624, 200, 139, 41, 0)
  64. $Checkbox24 = GUICtrlCreateCheckbox("Checkbox24", 792, 40, 17, 17)
  65. GUISetState(@SW_SHOW)
  66. #EndRegion ### END Koda GUI section ###
  67.  
  68. #include <word.au3>
  69. #include <outlook.au3>
  70.  
  71. $text = ClipGet ()
  72.  
  73. While 1
  74. $nMsg = GUIGetMsg()
  75. Switch $nMsg
  76.  
  77. ;------------------------------------------------------------------------------------------------------------------------------------------------------
  78. ;------------------------------------------------------------------------------------------------------------------------------------------------------
  79.  
  80. Case $Button1
  81.  
  82.  
  83.  
  84.             $oWordApp = _WordCreate("marcel.doc")
  85.  
  86.     WinActivate ("marcel.doc")
  87.     WinWaitActive ("marcel")
  88.  
  89. BlockInput (1)
  90.  
  91.  
  92.     send ("{enter}")
  93.     Send ("Sehr geehrter UPS Kunde ")
  94.     Send ("{enter 2}")
  95.     Send ("Wir haben ein Problem bei der Zustellung Ihrer Sendung ")
  96.     Send (GUICtrlREAD($Input1))
  97.     Send ("{enter 2}")
  98.     Send ("an:")
  99.     Send ("{Space}")
  100.     send (GUICtrlREAD($Input2))
  101.     Send ("{enter}")
  102.     Send ("{space 7}")
  103.     Send (GUICtrlREAD($Input3))
  104.     Send ("{enter}")
  105.     Send ("{space 7}")
  106.     Send (GUICtrlREAD($Input4))
  107.     Send ("{enter}")
  108.     Send ("{space 7}")
  109.     Send (GUICtrlREAD($Input5))
  110.     Send ("{enter 5}")
  111.  
  112.  
  113.  
  114. If BitAnd(GUICtrlRead($Checkbox1), $GUI_CHECKED) = $GUI_CHECKED Then Send ("Für eine Zustellung Ihrer Sendungen benötigen wir eine Empfänger Telefonnummer.{Enter 2}")
  115. If BitAnd(GUICtrlRead($Checkbox2), $GUI_CHECKED) = $GUI_CHECKED Then Send ("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}")
  116. If BitAnd(GUICtrlRead($Checkbox3), $GUI_CHECKED) = $GUI_CHECKED Then Send ("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}")
  117. If BitAnd(GUICtrlRead($Checkbox4), $GUI_CHECKED) = $GUI_CHECKED Then Send ("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}")
  118. If BitAnd(GUICtrlRead($Checkbox5), $GUI_CHECKED) = $GUI_CHECKED Then Send ("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}")
  119. If BitAnd(GUICtrlRead($Checkbox6), $GUI_CHECKED) = $GUI_CHECKED Then Send ("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}")
  120. If BitAnd(GUICtrlRead($Checkbox7), $GUI_CHECKED) = $GUI_CHECKED Then Send ("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}")
  121. If BitAnd(GUICtrlRead($Checkbox8), $GUI_CHECKED) = $GUI_CHECKED Then Send ("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}")
  122. If BitAnd(GUICtrlRead($Checkbox9), $GUI_CHECKED) = $GUI_CHECKED Then Send ("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}")
  123. If BitAnd(GUICtrlRead($Checkbox10), $GUI_CHECKED) = $GUI_CHECKED Then Send ("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}")
  124. If BitAnd(GUICtrlRead($Checkbox11), $GUI_CHECKED) = $GUI_CHECKED Then Send ("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}")
  125. If BitAnd(GUICtrlRead($Checkbox12), $GUI_CHECKED) = $GUI_CHECKED Then Send ("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}")
  126. If BitAnd(GUICtrlRead($Checkbox13), $GUI_CHECKED) = $GUI_CHECKED Then Send ("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}")
  127. If BitAnd(GUICtrlRead($Checkbox14), $GUI_CHECKED) = $GUI_CHECKED Then Send ("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}")
  128. If BitAnd(GUICtrlRead($Checkbox15), $GUI_CHECKED) = $GUI_CHECKED Then Send ("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}")
  129. If BitAnd(GUICtrlRead($Checkbox16), $GUI_CHECKED) = $GUI_CHECKED Then Send ("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}")
  130. If BitAnd(GUICtrlRead($Checkbox17), $GUI_CHECKED) = $GUI_CHECKED Then Send ("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}")
  131. If BitAnd(GUICtrlRead($Checkbox18), $GUI_CHECKED) = $GUI_CHECKED Then Send ("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}")
  132. If BitAnd(GUICtrlRead($Checkbox19), $GUI_CHECKED) = $GUI_CHECKED Then Send ("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}")
  133. If BitAnd(GUICtrlRead($Checkbox20), $GUI_CHECKED) = $GUI_CHECKED Then Send ("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}")
  134. If BitAnd(GUICtrlRead($Checkbox21), $GUI_CHECKED) = $GUI_CHECKED Then Send ("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}")
  135. If BitAnd(GUICtrlRead($Checkbox22), $GUI_CHECKED) = $GUI_CHECKED Then Send ("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}")
  136. If BitAnd(GUICtrlRead($Checkbox23), $GUI_CHECKED) = $GUI_CHECKED Then Send ("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}")
  137.  
  138. Send ("Mit freundlichen Grüßen")
  139.  
  140.  
  141. Send ("^a")
  142. Send ("^c")
  143.  
  144.  
  145.  
  146. BlockInput (0)
  147.  
  148.  
  149.  
  150.  
  151.  
  152.  
  153. ;-------------------------------------------------------------------------------------------------------------------------------------------------------
  154. ;-------------------------------------------------------------------------------------------------------------------------------------------------------
  155.  
  156.  
  157. Case $Button2
  158.  
  159.  
  160.         GUICtrlSetData($Input1, "")
  161.         GUICtrlSetData($Input1, "")
  162.         GUICtrlSetData($Input2, "")
  163.         GUICtrlSetData($Input3, "")
  164.         GUICtrlSetData($Input4, "")
  165.         GUICtrlSetData($Input5, "")
  166.         GUICtrlSetData($Input6, "")
  167.         GUICtrlSetData($Input7, "")
  168.         GUICtrlSetData($Input8, "")
  169.         GUICtrlSetData($Input9, "")
  170.         GUICtrlSetState($Checkbox1, $GUI_UNCHECKED)
  171.         GUICtrlSetState($Checkbox2, $GUI_UNCHECKED)
  172.         GUICtrlSetState($Checkbox3, $GUI_UNCHECKED)
  173.         GUICtrlSetState($Checkbox4, $GUI_UNCHECKED)
  174.         GUICtrlSetState($Checkbox5, $GUI_UNCHECKED)
  175.         GUICtrlSetState($Checkbox6, $GUI_UNCHECKED)
  176.         GUICtrlSetState($Checkbox7, $GUI_UNCHECKED)
  177.         GUICtrlSetState($Checkbox8, $GUI_UNCHECKED)
  178.         GUICtrlSetState($Checkbox9, $GUI_UNCHECKED)
  179.         GUICtrlSetState($Checkbox10, $GUI_UNCHECKED)
  180.         GUICtrlSetState($Checkbox11, $GUI_UNCHECKED)
  181.         GUICtrlSetState($Checkbox12, $GUI_UNCHECKED)
  182.         GUICtrlSetState($Checkbox13, $GUI_UNCHECKED)
  183.         GUICtrlSetState($Checkbox14, $GUI_UNCHECKED)
  184.         GUICtrlSetState($Checkbox15, $GUI_UNCHECKED)
  185.         GUICtrlSetState($Checkbox16, $GUI_UNCHECKED)
  186.         GUICtrlSetState($Checkbox17, $GUI_UNCHECKED)
  187.         GUICtrlSetState($Checkbox18, $GUI_UNCHECKED)
  188.         GUICtrlSetState($Checkbox19, $GUI_UNCHECKED)
  189.         GUICtrlSetState($Checkbox20, $GUI_UNCHECKED)
  190.         GUICtrlSetState($Checkbox21, $GUI_UNCHECKED)
  191.         GUICtrlSetState($Checkbox22, $GUI_UNCHECKED)
  192.         GUICtrlSetState($Checkbox23, $GUI_UNCHECKED)
  193.         GUICtrlSetState($Checkbox24, $GUI_UNCHECKED)
  194.  
  195.  
  196.  
  197.  
  198.  
  199.  
  200.  
  201.  
  202.  
  203. ;----------------------------------------------------------------------------------------------------------------------------------------------
  204. ;----------------------------------------------------------------------------------------------------------------------------------------------
  205.  
  206.  
  207.  
  208. Case $Button3
  209.  
  210.  
  211.  
  212.             $Names = IniReadSection(@ScriptDir & "\base.ini", "Name")
  213.  
  214.             If _ArraySearch($Names, GUICtrlRead($Input8)) = -1 Then
  215.                 IniWrite(@ScriptDir & "\base.ini", "Name", GUICtrlRead($Input8), GUICtrlRead($Input9))
  216.                 MsgBox(0, "Kundendaten", "Gespeichert")
  217.                 GUICtrlSetData($Input8, "")
  218.                 GUICtrlSetData($Input9, "")
  219.  
  220.             Else
  221.                 MsgBox(0, "Account", "Der account ist bereits vorhanden")
  222.  
  223.                 GUICtrlSetData($Input8, "")
  224.                 GUICtrlSetData($Input9, "")
  225.  
  226.             EndIf
  227.  
  228.  
  229.  
  230. ;-----------------------------------------------------------------------------------------------------------------------------------------------
  231. ;-----------------------------------------------------------------------------------------------------------------------------------------------
  232.  
  233.  
  234. Case $Button4
  235.  
  236.  
  237.  
  238.  
  239.     $oWordApp = _WordCreate("marcel.doc")
  240.  
  241.     WinActivate ("marcel.doc")
  242.     WinWaitActive ("marcel")
  243.  
  244.     BlockInput (1)
  245.  
  246.  
  247.     send ("{enter}")
  248.     Send ("Sehr geehrter UPS Kunde ")
  249.     Send ("{enter 2}")
  250.     Send ("Wir haben ein Problem bei der Zustellung Ihrer Sendung ")
  251.     Send (GUICtrlREAD($Input1))
  252.     Send ("{enter 2}")
  253.     Send ("an:")
  254.     Send ("{Space}")
  255.     send (GUICtrlREAD($Input2))
  256.     Send ("{enter}")
  257.     Send ("{space 7}")
  258.     Send (GUICtrlREAD($Input3))
  259.     Send ("{enter}")
  260.     Send ("{space 7}")
  261.     Send (GUICtrlREAD($Input4))
  262.     Send ("{enter}")
  263.     Send ("{space 7}")
  264.     Send (GUICtrlREAD($Input5))
  265.     Send ("{enter 5}")
  266.  
  267.  
  268.  
  269. If BitAnd(GUICtrlRead($Checkbox1), $GUI_CHECKED) = $GUI_CHECKED Then Send ("Für eine Zustellung Ihrer Sendungen benötigen wir eine Empfänger Telefonnummer.{Enter 2}")
  270. If BitAnd(GUICtrlRead($Checkbox2), $GUI_CHECKED) = $GUI_CHECKED Then Send ("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}")
  271. If BitAnd(GUICtrlRead($Checkbox3), $GUI_CHECKED) = $GUI_CHECKED Then Send ("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}")
  272. If BitAnd(GUICtrlRead($Checkbox4), $GUI_CHECKED) = $GUI_CHECKED Then Send ("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}")
  273. If BitAnd(GUICtrlRead($Checkbox5), $GUI_CHECKED) = $GUI_CHECKED Then Send ("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}")
  274. If BitAnd(GUICtrlRead($Checkbox6), $GUI_CHECKED) = $GUI_CHECKED Then Send ("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}")
  275. If BitAnd(GUICtrlRead($Checkbox7), $GUI_CHECKED) = $GUI_CHECKED Then Send ("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}")
  276. If BitAnd(GUICtrlRead($Checkbox8), $GUI_CHECKED) = $GUI_CHECKED Then Send ("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}")
  277. If BitAnd(GUICtrlRead($Checkbox9), $GUI_CHECKED) = $GUI_CHECKED Then Send ("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}")
  278. If BitAnd(GUICtrlRead($Checkbox10), $GUI_CHECKED) = $GUI_CHECKED Then Send ("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}")
  279. If BitAnd(GUICtrlRead($Checkbox11), $GUI_CHECKED) = $GUI_CHECKED Then Send ("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}")
  280. If BitAnd(GUICtrlRead($Checkbox12), $GUI_CHECKED) = $GUI_CHECKED Then Send ("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}")
  281. If BitAnd(GUICtrlRead($Checkbox13), $GUI_CHECKED) = $GUI_CHECKED Then Send ("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}")
  282. If BitAnd(GUICtrlRead($Checkbox14), $GUI_CHECKED) = $GUI_CHECKED Then Send ("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}")
  283. If BitAnd(GUICtrlRead($Checkbox15), $GUI_CHECKED) = $GUI_CHECKED Then Send ("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}")
  284. If BitAnd(GUICtrlRead($Checkbox16), $GUI_CHECKED) = $GUI_CHECKED Then Send ("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}")
  285. If BitAnd(GUICtrlRead($Checkbox17), $GUI_CHECKED) = $GUI_CHECKED Then Send ("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}")
  286. If BitAnd(GUICtrlRead($Checkbox18), $GUI_CHECKED) = $GUI_CHECKED Then Send ("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}")
  287. If BitAnd(GUICtrlRead($Checkbox19), $GUI_CHECKED) = $GUI_CHECKED Then Send ("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}")
  288. If BitAnd(GUICtrlRead($Checkbox20), $GUI_CHECKED) = $GUI_CHECKED Then Send ("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}")
  289. If BitAnd(GUICtrlRead($Checkbox21), $GUI_CHECKED) = $GUI_CHECKED Then Send ("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}")
  290. If BitAnd(GUICtrlRead($Checkbox22), $GUI_CHECKED) = $GUI_CHECKED Then Send ("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}")
  291. If BitAnd(GUICtrlRead($Checkbox23), $GUI_CHECKED) = $GUI_CHECKED Then Send ("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}")
  292.  
  293. Send ("Mit freundlichen Grüßen")
  294.  
  295.  
  296. Send ("^a")
  297. Send ("^c")
  298.  
  299.  
  300.  
  301.  
  302.         $name2 = IniRead(@ScriptDir & "\base.ini", "Name", GUICtrlRead($Input8), "0")
  303.         $oOutlook = ObjCreate("Outlook.Application")
  304.         $oOl = $oOutlook.CreateItem($olMailItem)
  305.         $oFolder = $oOutlook.GetNamespace("MAPI").GetDefaultFolder ($olFolderInbox)
  306.         With $oOl
  307.             .To = $name2
  308.             .body = $text
  309.             .save
  310.             .Move($oFolder)
  311.  
  312.         EndWith
  313.  
  314. BlockInput (0)
  315.  
  316. ;-------------------------------------------------------------------------------------------------------------------------------
  317. ;-------------------------------------------------------------------------------------------------------------------------------
  318.  
  319.  
  320. Case $Button5
  321.  
  322.  
  323.  
  324.             $name2 = IniRead(@ScriptDir & "\base.ini", "Name", GUICtrlRead($Input8), "0")
  325.             MsgBox(0, "Dein Name", $name2)
  326.  
  327.  
  328.  
  329.  
  330. Case $GUI_EVENT_CLOSE
  331. Exit
  332.  
  333. EndSwitch
  334. WEnd
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!