Die word datei im hintergrung beschreiben

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

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

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

Global $sTOSend
Global $iconExplorer = @WindowsDir &'\explorer.exe'
Dim $inputArray[20]
Dim $inputReadArray[20]
Dim $cBoxArray[24]

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

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}"

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

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"

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

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

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

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

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

$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)

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

$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 ###

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

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

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

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

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

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

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

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

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

Next
EndFunc ;==>_create_cBox

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

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

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

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

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

$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]

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

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

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

BlockInput(0)
GUICtrlSetData($progress, 100)
GUICtrlSetData($label10, "Fertig...")
$word.visible = True
;$oWordApp = _WordCreate(@ScriptDir & "\marcel.docx", 0, 0)
;$oDoc = _WordDocOpen ($oWordApp, @ScriptDir & "\marcel.docx.doc")
;WinActivate("marcel.docx")
;WinWaitActive("marcel")

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

;$setProperty = _WordPropertySet($oWordApp, "visible", True)
EndFunc ;==>_create_word

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

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

[/autoit]