Hallo Alle zusammen
ich suche für dieses Script eine lösung die Gruppe2 zu scrollen da hier am ende zwischen 100 u. 200 checkboxen rein sollen
Spoiler anzeigen
#include <GUIConstantsEx.au3>
#include <Word.au3>
#include <outlook.au3>
Global $sTOSend
Global Const $mainDir = 'Daten'
Global Const $Name = 'Marcel'
Dim $inputArray[20]
Dim $inputReadArray[20]
Dim $cBoxArray[24]
Dim $cBoxStringInsert[24]
$cBoxStringInsert[1] = "Voor een uitlevering hebben wij een geldige ontvanger Telefoonnummer nodig."&@CR&@CR
$cBoxStringInsert[2] = "Voor een uitlevering van u zending hebben wij een alternatieve telefoonnummer of een"&@CR&"Geldig emailadres van de ontvanger nodig."&@CR&@CR&"Het aangegeven telefoonnummer is niet juist of word niet beantwoord"&@CR&@CR
$cBoxStringInsert[3] = "Wij hebben voor de douane inklaring van u een factuur nodig met een Engelse Goederenbeschrijving"&@CR&"Van alle goederen binnen de zendingen en met een aangifte van een warde per artikel."&@CR&@CR&"Ik wil u vriendelijk vragen mij deze als PDF door te sturen."&@CR&@CR
$cBoxStringInsert[4] = "U ontvanger is meerdere keren van de douane gecontacteerd van wegen de inklaring van u zending."&@CR&"Helaas heeft de ontvanger tot vandaag nog niet gereageerd en de zending ingeklaard."&@CR&@CR&"De douane laat vragen of u een keer in contact kunt gaan met u ontvanger om er een beetje druk achter te zetten"&@CR&"Zo dat deze de inklaring van u zending beëindigt? "&@CR&@CR
$cBoxStringInsert[5] = "U ontvanger weigert de douane inklaring van u zending wij moeten weten wat wij met u zending moeten doen."&@CR&@cr&"Wij hebben tot uiterlijk DATUM een beslissing nodig anders word de zending van de douane in beslag genomen"&@CR&"En een terug sturen is niet meer mogelijk."&@CR&@CR&"Voor het geval dat de zending retour moet gestuurd worden vraag ik u ermee rekening te houden dat boven op de"&@CR&"Retour kosten nog douane bewerking kosten in hoogte van 250 USD bij komen."&@CR&@CR
$cBoxStringInsert[6] = "Het aangegeven ontvanger adres en telefoonnummer is niet juist. "&@CR&@cr&"Wij hebben voor een uitlevering een volledige ontvanger adres en een geldige telefoonnummer "&@CR&"Van u ontvanger nodig. "&@CR&@cr&"Ik wil u vriendelijk vragen ons deze als antwoord op deze email door te sturen. "&@CR&@cr
$cBoxStringInsert[7] = "U ontvanger is meerdere keren van de douane gecontacteerd van wegen de inklaring van u zending. "&@CR&"Helaas heeft de ontvanger tot vandaag nog niet gereageerd en de zending ingeklaard. "&@CR&@cr&"De douane laat vragen of u een keer in contact kunt gaan met u ontvanger om er een beetje druk"&@CR&" achter te zetten zo dat deze de inklaring van u zending beëindigt? "&@CR&@cr&"Als u ontvanger de zending niet tot uiterlijk DATUM heeft ingeklaard word deze van de douane aan u terug gestuurd. "&@CR&@cr
$cBoxStringInsert[8] = "U ontvanger is meerdere keren van de douane gecontacteerd van wegen de inklaring van u zending. "&@CR&"Helaas heeft de ontvanger tot vandaag nog niet gereageerd en de zending ingeklaard. "&@CR&@CR&"De douane laat vragen of u een keer in contact kunt gaan met u ontvanger om er een beetje druk"&@CR&" achter te zetten zo dat deze de inklaring van u zending beëindigt? "&@CR&@CR&"Als u ontvanger de zending niet tot uiterlijk DATUM heeft ingeklaard moeten wij deze zending"&@CR&" volgens landelijke wetgeving aan u terug sturen. "&@CR&@CR&"Wij moet u ook informeren dat een verandering van de ontvanger van de douane niet word toe gestaan. "&@CR&@CR&" Als u deze zending voor afloop van de douane deadline wilt terug hebben vraag ik u vriendelijk "&@CR&"Ons dit op deze E-mail door te geven. "&@CR&@CR
$cBoxStringInsert[9] = "U ontvanger weigert de betaling van de douanekosten in hoogte van. "&@CR&@CR&"Wij hebben een aanwijzing nodig wat wij verder met u zending moeten doen. "&@CR&@CR&"Als u deze kosten voor u ontvanger wilt overnemen vragen wij u vriendelijk dit in Engels taal"&@cr&"Onder aangifte van het Trackingnummer en u accountnummer als antwoord op deze Email"&@cr&"Te bevestigen."&@cr&@cr
$cBoxStringInsert[10] = "U ontvanger weigert de betaling van de transportkosten in hoogte van."&@CR&@CR&"Wij hebben een aanwijzing nodig wat wij verder met u zending moeten doen. "&@CR&@CR&"Als u deze kosten voor u ontvanger wilt overnemen vragen wij u vriendelijk dit in Engels taal"&@cr&"Onder aangifte van het Trackingnummer en u accountnummer als antwoord op deze Email"&@cr&"Te bevestigen."&@cr&@cr
$cBoxStringInsert[11] = "Ihr Empfänger hat die Annahme Ihrer Sendung verweigert."&@CR&"Wir würden Sie um eine Anweisung bitten wie wir mit ihrer Sendung weiter zu verfahren haben."&@CR&@CR
$cBoxStringInsert[12] = "De douane in Amerika heef voor de inklaring van u zending een FORM nodig. "&@CR&"Deze vindt u in de aan hang aan deze E-mail. "&@CR&@CR&"Wij willen u vriendelijk vragen deze in te vullen, en getekend / gestempeld als PDF aan ons terug te sturen. "&@CR&@CR&"Wij moeten deze voor DATUM bij de douane ingediend hebben. "&@CR&"Als wij dit niet tot de douane "&@CR&"Deadline hebben ingediend gaat de douane van Amerika u zending in beslag nemen en vernietigen"&@CR&@CR&"Als het u niet mogelijk is het geraagde document bij te brengen hebben wij een aanwijzing nodig"&@CR&" Wat wij verder met u zending moeten doen."&@CR&@CR
$cBoxStringInsert[13] = "Voor het terug sturen van u zending van uit de douane in Shanghai vraagt de douane om "&@CR&" de volgende documenten. "&@CR&@CR&"Een brief in Engelse taal gericht aan de douane in Shanghai ( Dear China Customs ) Alstublieft geen "&@CR&"Andere aanreden gebruiken. Deze brief moet de volgende inhout hebben: "&@CR&@cr&"1 De aanvraag de zending naar u terug te sturen. "&@CR&@CR&"2 Een reden waarom deze zending aan u terug gestuurd moet worden. Hier bestaan alleen 3 redenen"&@CR&" Die van de douane geaccepteerd worden. 1 foute goederen 2 foute ontvanger 3 ontbrekende "&@CR&"documenten. "&@CR&@CR&"3 de confirmatie dat u garant staat voor de retour kosten met aangifte van u UPS accountnummer. "&@CR&@CR&"Als u reden een foutieve ontvanger is moet u in de brief aangeven waar u de zending naartoe gestuurd "&@CR&"Hebt en waar de zending naartoe hat moeten gestuurd worden. Hierbij moet u van de juiste en "&@CR&"De foutieve ontvanger het volledige adres aangeven. "&@CR&@CR&" Als u reden foutieve goederen is moet u aangeven welke goederen u hebt gestuurd en welke"&@CR&"Goederen hadden moeten gestuurd worden. "&@CR&@CR&"Bij foutieve goederen of ontvanger ijst de douane een kopie van het origineel koopcontract "&@CR&"Gestempeld en getekend van afzender en ontvanger waarin te zien is dat het aan gegeven reden "&@CR&"Werkelijk juist is. Verder ijst de douane de volledige E-mail communicatie tussen de afzender en "&@CR&" De ontvanger over dit probleem "&@CR&@CR&"Als u redenen ontbrekende documenten is moet u in de brief de naam aangeven van het document "&@CR&"Aangeven wat niet bijgebracht kan worden. In dit geval word er geen contract en email communicatie "&@CR&"Van de douane verijsd."&@CR&@CR&"De douane vraagt aan u ontvanger ook om exact de zelfde verklaring. Ik wil u vragen zich met u"&@CR&"Ontvanger afspreken zo dat hij ook de zelfde redenen opgeeft als u. "&@CR&@CR&"Als het niet mogelijk is alle gevraagde documenten bij te brengen van u en de ontvanger word "&@CR&"Een terug sturen van de douane niet toe gestaan en de zending word van de douane in beslag "&@CR&@CR&"Genomen en een terug sturen is dan niet meer mogelijk. "&@CR&@CR&"Ik wil u vriendelijk vragen mij de gevraagde documenten als PDF door te sturen."&@CR&@cr
$cBoxStringInsert[14] = "Wij hebben de zending meerdere keren aangeleverd maar de ontvanger is niet aan te treffen en is "&@CR&"Telefonisch niet te bereiken. "&@CR&@CR&"Wij hebben een aanwijzing nodig wat wij verder met u zending moeten doen "&@CR&@CR
$cBoxStringInsert[15] = "XXX"
$cBoxStringInsert[16] = "U ontvanger heeft bij de douane aan gegeven dat het factuur van u niet juiste is. "&@CR&"Wij hebben het juiste factuur nodig en een uitlegbrief in Engelse taal waarin verklaard woord "&@CR&"Waarom de factuur verandert moet worden en hoe de fout is ontstaan. Verder moet aan gevraagd "&@CR&"Worden aan de douane de nieuwe factuur te accepteren "&@CR&@cr&"Ik wil u vriendelijk vragen ons het nieuwe factuur en de brief in PDF form als antwoord op deze mail "&@CR&"Door te sturen "&@CR&@cr
$cBoxStringInsert[17] = "Om u zending terug te kunnen sturen hebben wij van u een brief nodig in Engelse taal "&@CR&"Waarin u aanvraagt de zending aan u terug te sturen en de confirmatie de kosten voor het"&@CR&"Terug sturen te accepteren onder aangifte van u UPS klantennummer. "&@CR&@cr&"Deze brief moet geprint zijn op bedrijf briefpapier en met een stempel en handtekening "&@CR&"Voorzien zijn "&@CR&@cr&" Ik wil u vriendelijk vragen mij deze als PDF door te sturen. "&@CR&@cr
$cBoxStringInsert[18] = "XXX"
$cBoxStringInsert[19] = "Ihr Empfänger wurde mehrfach vom Brasilianischen Zoll aufgefordert die Verzollung Ihrer"&@CR&"Sendung vor zu nehmen. Leider hat Ihr Empfänger bis heute nicht reagiert und die benötigten"&@CR&"Unterlagen eingereicht."&@CR&@CR&"Laut Geltender FDA Bestimmungen wir ihre Sendung maximal bis zu 45 Tage nach dem Importdatum"&@CR&"Gehalten. Nach Ablauf dieser Zoll Frist wird diese Sendung von der FDA kosten Pflichtig an Sie"&@CR&"Retourniert. Ich bitte Sie hierbei zu beachten das der Zoll Sie für alle angefallen Kosten in Regress"&@CR&"nehmen wird und diese an Sie zurück belastet. Dies umfasst Lager Kosten, Rückversand,"&@CR&"Broker- , Zoll- , und Administrative –Kosten."&@CR&@CR&"Um diese zu verkommen würden wir Sie bitten sich mit Ihrem Empfänger in Kontakt zu setzen"&@CR&"Und Ihn zu einer Verzollung zu bewegen."&@CR&@CR&"Sollte Ihr Empfänger nicht zu einer Verzollung zu bewegen sein würden wir Sie bitten uns"&@CR&"Schnellst möglich eine Rückholungsanweisung zukommen zu lassen um weitere Lager Kosten zu"&@CR&"Vermeiden."&@CR&@CR
$cBoxStringInsert[20] = "Ihre Sendung übersteigt das import-Limit von 200 € für diese Region in Russland."&@CR&"Das Limit wird berechnet anhand der Transport Kosten + den angegebenen Warenwert."&@CR&"Diese darf einen Gesamt Betrag von 200 Euro nicht übersteigen."&@CR&@CR&"Wir würden Sie bitten und eine alternative Zustellungsadresse in Moscow oder"&@CR&"St. Petersburg zukommen zu lassen da diese Regionen von der Import-Beschränkung"&@CR&"Ausgenommen sind. Ebenfalls würden wir Sie bitten uns eine abgeänderte Rechnung"&@CR&"Ausgestellt auf den neuen Empfänger mit Angabe eines vollständigen Kontaktnamens"&@CR&"Und einer direkten Telefonnummer zukommen zu lassen."&@CR&@CR&"Wir müssen Sie im Vorfeld darüber informieren das einer Änderung des Empfängers"&@CR&"Vom örtlichen Zoll genehmigt werden muss und wir keine Garantie geben können das"&@CR&"Dies durch die Behörden Akzeptiert wir."&@CR&@CR&"Sollte es Ihnen nicht möglich sein einen alternativen"&@CR&"Empfänger in einem dieser Gebiete zu Bennen"&@CR&"Sind wir nach Landesgesetz dazu verpflichtet ihnen die Sendung Kosten Pflichtig zu retournieren da"&@CR&"Die Vernichtung von Zollpflichtiger Ware in Russland ausgeschlossen ist."&@CR&@CR&"Sollten sich die Sendung nach Ablauf der Zollfrist ( DATUM) immer noch im Zoll befinden"&@CR&"So wird diese Automatisch an Sie returniert."&@CR&@CR
$cBoxStringInsert[21] = "Ihre Sendung wurde vom örtlichen Zoll gestoppt. Eine Verzollung von Chemischen-, Kosmetischen"&@CR&"Pulver- , und Flüssigen Waren ist leider mit UPS nicht möglich in Russland. Diese Produkte"&@CR&"Unterliegen einem Epidemiological Control Importverfahren für die Verzollung das wir als UPS"&@CR&"Leider nicht anbieten können da dies nur Transportgesellschaften erlaubt ist die"&@CR&"Ansässig sind im auf dem Flughafengelände was auf UPS nicht zu trifft."&@CR&@CR&"Laut örtlicher Gesetzgebung müssen wir diese Sendung an Sie returnieren."&@CR&@CR
$cBoxStringInsert[22] = "Es ist momentan nicht möglich für Private Personen Zollpflichtige Ware zu erhalten."&@CR&"Das Land Russland hat ein Importverbot erlassen das es Privaten Personen untersagt"&@CR&"Sendungen zu verzollen. Es gelten Ebenfalls als privat Sendungen Waren die von einer"&@CR&"Firma bestellt wurden aber von einer Privatperson bezahlt wurden."&@CR&"Die Offizielle Bekanntmachung entnehmen Sie bitte der Russischen Zoll Seiten"&@CR&@CR&"Auszug:"&@CR&"There is a temporary suspension on the import of non-document shipments to"&@CR&"private individuals in the Russian Federation. Any such shipments received will"&@CR&"be automatically returned to the shipper."&@CR&@CR&"Laut örtlicher Gesetzgebung müssen wir diese Sendung an Sie returnieren."&@CR&@CR
$cBoxStringInsert[23] = "Leider war es uns nicht möglich Ihren Empfänger innerhalb der Firma ausfindig zu machen."&@CR&"Für eine Zustellung benötigen wir einen vollständigen Kontaktnamen, die Angabe einer"&@CR&"Einer Abteilung und eine Telefonnummer mit direkter Durchwahl."&@CR&"Wir würden Sie bitten uns diese Daten als Antwort auf diese Mail zukommen zu lassen."&@CR&@CR
Dim $cBoxString[24]
$cBoxString[1] = "Geen Telefoonnummer"
$cBoxString[2] = "Alternatieve nummer"
$cBoxString[3] = "Ontbrekende factuur"
$cBoxString[4] = "China Push inklaring"
$cBoxString[5] = "TR Inklaring geweigerd"
$cBoxString[6] = "Adres en PH fout"
$cBoxString[7] = "RU Inklaring geweigerd"
$cBoxString[8] = "10 Day Ukraine DDL"
$cBoxString[9] = "D/T geweigerd"
$cBoxString[10] = "F/C geweigerd"
$cBoxString[11] = "Ontvangst geweigerd"
$cBoxString[12] = "Douane Form USA"
$cBoxString[13] = "RTS Shanghai"
$cBoxString[14] = "3x Not In PH# NA"
$cBoxString[15] = "NL Niet van toepassing"
$cBoxString[16] = "Factuur verandering China"
$cBoxString[17] = "RTS niet Shanghai"
$cBoxString[18] = "NL Niet van toepassing"
$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=
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]$Form1 = GUICreate("Formschreiben erstellen", 816, 600)
[/autoit] [autoit][/autoit] [autoit]$Group1 = GUICtrlCreateGroup("", 32, 16, 757, 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)
$Button7 = GUICtrlCreateButton("Laden", 560, 60, 102, 20)
$Button8 = GUICtrlCreateButton("Speichern", 560, 80, 102, 20)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("", 32, 176, 757, 369)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("", 32, 544, 757, 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, 640, 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)
If Not FileExists(@ScriptDir & '\' & $mainDir) Then
DirCreate(@ScriptDir & '\' & $mainDir)
EndIf
#endregion ### END Koda GUI section ###
[/autoit] [autoit][/autoit] [autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE, $Button5
Exit
Case $Button6
_clear_input()
Case $Button3
$sText = _create_text()
_create_word2003($sText)
Case $Button4
$textString = _create_text()
_create_Mail($textString)
Case $Button7
_load_user()
Case $Button8
_save_user()
EndSwitch
WEnd
Func _load_user()
$read = IniRead(@ScriptDir & '\'&$mainDir&'\' & "Kundendaten.ini","KundenAccount",GUICtrlRead($inputArray[8]),"")
GUICtrlSetData($inputArray[9],$read)
GUICtrlSetData($label10, "Kundendaten geladen...")
EndFunc
Func _save_user()
IniWrite(@ScriptDir & '\'&$mainDir&'\' & "Kundendaten.ini","KundenAccount",GUICtrlRead($inputArray[8]),GUICtrlRead($inputArray[9]))
GUICtrlSetData($label10, "Kundendaten gespeichert...")
EndFunc
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, 250, 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 & 'Geachte UPS Klant' & @CR & @CR & _
'Wij hebben een probleem met het uitleveren van u zending: ' & $inputReadArray[1] & @CR & @CR & _
'Aan: ' & $inputReadArray[2] & @CR & @TAB & $inputReadArray[3] & @CR & @TAB & $inputReadArray[4] & _
@CR & @TAB & $inputReadArray[5] & @CR & @TAB & $inputReadArray[6] & @CR & @CR & $sString & @CR & @CR & @CR & _
'Met vriendelijke groeten' & @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(@ScriptDir &'\'&$mainDir&'\' & $newDocx)
WinActivate($newDocx)
GUICtrlSetData($progress, 70)
Send($sText)
BlockInput(0)
GUICtrlSetData($progress, 100)
GUICtrlSetData($label10, "Fertig...")
$word.visible = True
EndFunc ;==>_create_word
Func _create_word2003($sText)
GUICtrlSetData($label10, "Starte Word...")
GUICtrlSetState($progress, $GUI_SHOW)
GUICtrlSetData($progress, 35)
BlockInput(1)
$oWordApp = _WordCreate($Name & '.doc', 0, 0)
WinActivate($Name & '.doc')
WinWaitActive($Name)
GUICtrlSetData($progress, 70)
Send($sText)
BlockInput(0)
GUICtrlSetData($progress, 100)
GUICtrlSetData($label10, "Fertig...")
$setProperty = _WordPropertySet($oWordApp, "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 & '\' & $mainDir) Then
DirCreate(@ScriptDir & '\' & $mainDir)
EndIf
Local $DATEINAME = $FileName & '_' & @YEAR & '_' & @MON & '_' & @MDAY & '-' & @HOUR & '_' & @MIN & '_' & @SEC &'.docx'
FileWrite(@ScriptDir & '\'&$mainDir&'\' & $DATEINAME,'')
Return($DATEINAME)
EndFunc
Ich habe die Lösung schon im forum gefunden bin aber leider zu blöd diese anzu wenden.
[ gelöst ] Gruppe oder Bereich in GUI scrollen
Währe super wenn hier einer helfen könnte
Gruß
adamkaller