Beiträge von Windi

Super Jetzt weiß ich genau so viel wie vorher

als Anfänger im hohen Alter.

Aber wir belassen es so, die Hauptsache es läuft so.

Zitat

Falls du die Schriftgröße in meinem Beispielcode lieber in px oder em angeben magst, Zeile 37 wie folgt ändern (als Beispiel):
"Subject=" & $Subject, "BodyFormat=" & $olFormatHTML, 'HTMLBody= <p style="font-size:' & $FontSize & 'px">' & $AlleArtikel & "</p>", "To=" & $To)
"Subject=" & $Subject, "BodyFormat=" & $olFormatHTML, 'HTMLBody= <p style="font-size:' & $FontSize & 'em">' & $AlleArtikel & "</p>", "To=" & $To)

Ich wollte eine Gui machen, wo er sich es selbst die Größe einstellen kann.

Habe gerade festgestellt auf Outlook 2007 funktioniert es nicht.

Auf Laptop mit Outlook 2021 geht beides.

Super vielen Dank euch beiden.

Nur aus Interesse

Func _BoolToStr($bBool)

was bedeutet das?

Muss ich das Array zeilenweise auslesen um es tabellarisch zu gestalten.

Gruß Werner

Das Script ist auch nur zum Testen. (Global / Local)

Zum Ablauf folgendes:

Der Kollege bekommt aus seinem Shop eine Mail mit einer neuen Bestellung.

Ich soll jetzt die Mail auslesen und die Artikelnummern der Bestellung sortieren.

Eine neue Mail senden mit der geänderten Textgröße.

Der Shopinstaller kann es nicht, oder ist nicht bereit das zu ändern.

Die Mail ist nicht nur klein geschrieben, sondern auch noch ganz dünn, das ich schon Schwierigkeiten habe sie zu lesen.

Die Mail ist deshalb mit seiner Sehbehinderung nicht zu lesen.

Ich kann leider keine Original Daten einstellen.

Gruß Werner

Hallo Moombas

Danke für deine schnelle Meldung.

Ich habe schon verschiedene Größen ausprobiert, es tut sich leider nichts.

Moin zusammen,

Erst einmal ein Dankeschön an water für die tolle Umsetzung der Outlookex.

Jetzt zu meiner Frage?

Gibt es eine Möglichkeit die Schriftgröße im Body zu ändern.

Ich schreibe das Script für einen Kollegen der schwer Sehbehindert ist.

#include <Array.au3>
#include <MsgBoxConstants.au3>
#include <String.au3>
#include <OutlookEX.au3>

; Zum Testen bitte Mailadresse und den Outlook Ordner "*\\Paketversand\" ändern

Local   $arr  [6] [4]
 $arr  [0] [0]  =   "Artikel Nr."
 $arr  [0] [1]  =   "Stückzahl"
 $arr  [0] [2]  =   "Text"
 $arr  [0] [3]  =   "Größe"

For $i = 1 to 5
 $arr  [$i] [0]  =   "1"
 $arr  [$i] [1]  =   "10"
 $arr  [$i] [2]  =   "Schrauben"
 $arr  [$i] [3]  =   "M10"
Next

Local $AlleArtikel = _ArrayToString($arr, "  " )


; Outlook öffnen
Local $oOutlook = _OL_Open()
If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF", "Error creating a connection to Outlook. @error = " & @error & ", @extended = " & @extended)

; Ordner wählen (hier den Mailordner einfügen) "Paketversand"
Global $aFolder = _OL_FolderAccess($oOutlook, "*\\Paketversand\", $olFolderInbox)
If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF", "Error accessing PST. @error = " & @error & ", @extended = " & @extended)

; hier "[UnRead]=False" = alle gelesene Mails im Ordner - "[UnRead]=True" = alle ungelesene
Local $aItems = _OL_ItemFind($oOutlook, $aFolder[1], $olMail, "[UnRead]=True", "", "", "EntryID,Subject,Body", "", 1)

; Erstellen  das E-Mail-Element
Local $oItem = _OL_ItemCreate($oOutlook, $olMailItem, "*\\Paketversand\", "", _
 "Subject=Betreff", "BodyFormat=" & $olFormatHTML, "HTMLBody= <font size=7>" &$AlleArtikel &"</font>", "To=abc@gmx.de")

; Sende die Mail
_OL_ItemSend($oOutlook, $oItem)
If @extended = -2147352567 Then _
 MsgBox(16, "OutlookEX UDF - Example Script", "You don't have permission to send the mail on behalf of the specified person!")

; Outlookverbindung beenden
_OL_Close($oOutlook)

Ich würde mich freuen wenn sich jemand meldet und mir hilft.

Viele Grüße

Werner

Danke @Moombas

es wurde doch alles geklärt wie du richtig geschrieben hast.

@Velted

Es sollte ursprünglich mit der Datei geokordiert werden.

Wenn aber bei Straße z.B. "Frau heißt Monika" steht und das geokodieren extern ausgeführt wird,

kannst du dir sicher vorstellen, dass die Exe sich aufhängt.

So und jetzt zu deiner Frage:

Das ganze läuft im Hintergrund ab und eine jpg ist im Vordergrund.

Wenn sich jetzt die exe aufhängt, hast du keine Möglichkeit ein Programmabbruch zu machen.

Vor allem wenn das Script kompiliert ist.

Auch nicht mit dem MS Taskmanager.

So das war jetzt mein allerletzter Beitrag zu diesem Thema.

Es wurde alles geschrieben und es gibt eine neue Software.

Bei der, bin ich mir sicher das sie fehlerfrei läuft da ich sie schon über 5 Jahre kenne.

@Velted Vielleicht solltest du mal von Anfang an lesen.

Es handelt sich um eine alte Software.

Damals bekamen die Programme keine einzel Zulassung.

Man mußte wie ich schon geschrieben habe, alles nochmal von Hand aufzeichnen.

Die Programme wurden lediglich als Hilfsprogramme genutzt.

So, ich werde hierzu keine Antworten mehr schreiben.

Es wurde alles beschrieben und wer lesen kann ist klar im Vorteil.

Es geht hier in diesem Forum nicht was mal war oder ist.

Die Frage ist hier meistens ("Wie.......????????")

Gruß

Werner

@Musashi

hat ja alles geschrieben.

Gruß an alle

Werner

Zitat

Peter S. Taler

zu meiner Fortbildung, was muss die Software denn besonderes können? Damit Du nicht gesondert aufschreiben mußt?

https://add.rlp.de/fileadmin/add/Abteilung_4/Wein/Wein_-_Leitfaden_Weinbuchsfuehrung.pdf

Hier kannst du alles nachlesen.

Wenn du etwas nicht verstehst melde dich.

Zitat

Weinanbauregion

alle deutsche Weinbau Gebiete

Gruß Werner

Du weißt doch in unserem schönen Land ist alles geregelt.

@Moombas Du bist bei Wein schon an Wein-Software gebunden.

Diese muss eine Zulassung der Weinkontrolle haben.

Ohne, musst du alle Aufzeichnungen nochmal von Hand machen.

Es gibt eine spezielle Liste von zugelassenen Programmen.

Vielen Dank für deine Hilfe,

es geht um Branchen Software Bereich Wein, da ist das Angebot überschaubar.

Außerdem kenn ich mich da sehr gut aus.

Gruß Werner

Vielen Dank,

es ist eine MS Access vom Typ *.mdb mit Datenbank Kennwort.

Die Chancen hier stehen ziemlich schlecht.

Es würde auch nichts bringen, es müßten da ja auch noch weitere Felder eingerichtet werden.

Es ist ein komplettes Fakturierungs Prog mit Artikelverwaltung, Auswertungen und Rechnungsstellung.

Das ist mir viel zu heiß, da was zu ändern.

Wir bleiben dabei es gibt neue Software.

viele Grüße

Werner

Vielen Dank

für eure Unterstützung.

Es ist eine Externe Software.

Man kann nur die Daten exportieren aber nicht importiieren.

Dank euch, habe ich sie jetzt überzeugt, dass eine neuere Software, doch sinnvoller wäre.

Ich werde die CSV ein bisschen bearbeiten und in Excel einfügen.

Dann kann man evtl. die Liste im neuen Prog importieren.

Nochmals Danke an allle!

Viele Grüße

Werner

Hallo,

Ihr habt natürlich recht die Quelle zu bearbeiten.

Ich hab auch schon 9 verschiedene Abfragen drinn.

Hab mich mal schlau gemacht wie das Programm genutzt wird.

Es handelt sich bei der Software, vermutlich aus der Zeit von Windows 95, (wundere mich das die überhaupt noch läuft)

Es sind ca. 4500 Adressen angelegt.

Der Matchcode liegt auf der Kundennummer.

Jetzt geht es erst richtig los.

Sie haben ihr Prog neu geschrieben.

Zu der Zeit gab es nur 2 Telefonfelder und 1 Fax Feld.

Schlau, wie sie sind haben sie ein

F vor die Kundennummer gemacht und die Handynummer der Frau in das Feld "Telefon" geschrieben.

Also gleiche Kundennummer mit F davor.

Das hat natürlich nicht gereicht, also haben sie bei "Straße" noch die Handynummer der Tochter eingefügt.

Es kommt noch besser.

Gleiche KDNR mit P dahinter (F45689P mal so oder so F 45689 P) steht z.B. in 'Straße:' "P-50 NL" ; Bedeutet: Preis Nachlass 0,50 € nach Liste

Bei Straße steht auch manchmal, "Frau heißt Monika" damit sie beim telefonieren noch wissen das sie mit ihr auf du waren

Gleich KDNR und PKM dahinter heißt: Karl Müller bekommt Provision wieviel steht natürlich in "Strasse." "Wo auch sonst!"

O = Tel. Opa

N = Tel. Nachbar usw.

Sachen gibt es!

Und mit Matchcode Kundennummer ("456") sprudeln alle Einträge auf den Bildschirm und natürlich auch in die CSV)

Und was machen wir jetzt????

Ich hoffe ihr habt euch gut amüsiert,

viele Grüße

Werner

Vielen Dank für die Vorschläge!

Zitat

Taskmanager sprichst Du? MS onboard?

Ja der ist es genau!

Variante 2 wäre zu schön um wahr zu sein.

Es geht hier um eine ältere Fakturierungssoftware bei der die CSV so in etwa aussieht:

z. B.

KDNR: Name: Vorname: Land: PLZ: Ort: Straße:

111111 Muster Hans NL 1111 G.L. Niemwegen Ommegangstraat 10

oder:

G11111 Muster Hans NL1111G.L. Niemwegen Ommegangstraat 10

oder:

11111H Muster Hans NL 1111 G. L Niemwegen Ommegangstraat 10

Als CSV so:

G111111; Muster Hans; NL1111G.L.; Niemwegen; Ommegangstraat 10

Ich kann euch sagen, da waren Experten am Werk.

Hab schon die meisten Fehleingaben korrigiert.

Hab aber jetzt die Nase voll, weil ständig das nachfolge Programm aussteigt.

Damit sie es lernen, wollte ich eine Ausgabe machen in welchem Datensatz der Fehler liegt.

Dann können sie es in Ihrem Programm ändern und beim nächstenmal funktioniert es dann.

Ich werde mal das mit der Exe von Sven ausprobieren.

Melde mich dann nochmal.

Viele Grüße

Werner

Hi Sven,

hoffe es ist alles gut bei dir.

Die Titelleiste ist mir egal.

Ich komme nur nicht mehr weiter wenn sich eine der exe aufhängt.

Ich kann auch eine zusätzliche Taste belegen.

Es müsste nur eine Notstopp funktion vorhanden sein um die Gui abzubrechen.

Wenn die exe hängen bleibt.

viele Grüße

Werner

Hallo in die Runde,

ich hab folgendes Problem.

beim ausführen von 2 externen Exe Programmen, die im Hintergrund laufen, kann es vorkommen dass ein Programm auf Grund von Fehleingaben sich aufhängt.

Ich habe dann keine Möglichkeit die Gui zu beenden.

Auch nicht mit dem Taskmanager, da das Hintergrundbild aktiv bleibt.

Gibt es eine Möglichkeit wenigstens das Hintergrundbild weg zu schalten.

Für mehr Info bitte melden.

Viele Grüße

Werner

#include <GUIConstantsEx.au3>
#include <MsgBoxConstants.au3>
#include <WindowsConstants.au3>


Opt('MustDeclareVars', 1)

Global $Karte


; Gui für Tourenplanug
Global $GuiBreite = 500  ; Breite der Gui
Global $GuiHoehe  = 400  ; Höhe der Gui
Global $GuiLinks  = 705  ; + nach rechts und - nach links schieben
Global $GuiOben   = 300  ; - nach oben und + nach unten schieben

; Bild mit Karte und Version einlesen
Global $Bild_jpg = "C:\Users\xx2\Desktop\Bild.jpg"


; Alle Processe von Excel schließen
ProcessClose ("Excel.exe")   ; Funtion

; Ganzer Bildschirm freischalten
   Local $Weiss = GUICreate("", @DesktopWidth, @DesktopHeight, 0, 0,$WS_MAXIMIZEBOX+$WS_MAXIMIZE)
   GUICtrlCreatePic  ($Bild_jpg  ,0,0, @DesktopWidth, @DesktopHeight)
; Fenster im Vordergrund
   WinSetOnTop($Karte,"", 0 )
   GUISetState(@SW_SHOW, $Weiss)  ; Karte anzeigen @SW_Show, $Karte

; Gui Form1
Global $Form1 = GUICreate("", $GuiBreite , $GuiHoehe , $GuiLinks , $GuiOben )
GUISetFont(10)
Global $Button1 = GUICtrlCreateButton("Exe 1",     110,  30, 270, 30)
Global $Button2 = GUICtrlCreateButton("EXE 2",     110,  80, 270, 30)
Global $Button7 = GUICtrlCreateButton("Ende",      110, 340, 270, 30)


; Fenster im Vordergrund
WinSetOnTop($Form1,"",0)
GUISetState(@SW_SHOW, $Form1) ; $zeigen = @SW_Show


While 1
    Local $nMsg = GUIGetMsg(1) ; X = Ende
    Switch $nMsg[0]
        Case $GUI_EVENT_CLOSE
             Exit

        Case $Button1
            ; Run (??? .exe)  ; externe EXE
             Exit

        Case $Button2
            ; Run (??? .exe)  ; externe EXE
             Exit

        Case $Button7    ;Program Ende
             Exit

    EndSwitch
WEnd

Thema erledigt Danke an alle!

Hallo Sven,

Hab dein Script eingebaut und muss sagen es läuft sehr Stabil.

Eine Frage noch?

Opt('MustDeclareVars', 1) muss das unbedingt rein.

Habe es am Anfang vom Sript gesetzt und kriege mehere Fehlermeldungen.

z.B.

Do While

$nMsg = GUIGetMsg(1) ; X = Ende

Es läuft aber auch ohne habe ich festgestellt.

Gehe davon aus, du hast dir was dabei gedacht!

Kann man es woanders platzieren?

viel Grüße

Werner