Beiträge von Windi

Windi

Hallo Danp2,

Vielen Dank für deine Meldung.

ich habe viel im englischen Forum von dir gelesen.

Ich verwende Google Translate.

Ich bin ein kleines bisschen weiter.

Der Anmelde Button funktioniert!

Aber leider bekomme ich das login nicht hin.

C

#include "wd_core.au3"
#include "wd_helper.au3"
#include "Misc.au3"
#include <File.au3>

$_WD_DEBUG = True
$file = "C:\Program Files (x86)\Mozilla Firefox\Firefox.exe"
FileChangeDir(".\WebDriver-0.1.0.13")
Local $sDesiredCapabilities, $sSession, $sElement
;Local $sDesiredCapabilities = '{"capabilities": {"alwaysMatch": {"goog: chromeOptions": {"w3c": true, "excludeSwitches": ["enable-automation"]}}}}'
$mail = "test@gmx.de"
$pass = "Pass1234"


; ==>  Firefox Webseite laden ***************************************************************************
SetupGecko( )
_WD_Startup( )
_WD_Window($sSession, "Maximize", "")
Local $sSession = _WD_CreateSession($sDesiredCapabilities)
_WD_Navigate($sSession, "https://mydrive.tomtom.com/de_de/#mode=viewport+viewport=49.91511,7.83762,12.43,0,-0+ver=3")
;********************************************************************************************************


; ==> Click Anmelde 1 button  funktioniert*****************************************************************
_WD_WaitElement($sSession, $_WD_LOCATOR_ByXPath, "//button[contains(text(),'Anmelden')]"  )
Local $sButton = _WD_FindElement($sSession, $_WD_LOCATOR_ByXPath,"//button[contains(text(),'Anmelden')]" )
_WD_ElementAction($sSession, $sButton, 'click')
;**********************************************************************************************************



; ==> Emailadresse eintragen *********************************************************
$xpath = "//input[@type='text']"
_WD_WaitElement($sSession, $_WD_LOCATOR_ByXPath, $xPath )
$sElement_mail = _WD_FindElement($sSession, $_WD_LOCATOR_ByXPath, $xPath )

; ==> Passwort eintragen *********************************************************
$xpath = "//input[@type='password']"
_WD_WaitElement($sSession, $_WD_LOCATOR_ByXPath, $xPath )
 $sElement_pass = _WD_FindElement($sSession, $_WD_LOCATOR_ByXPath, $xPath )

_WD_ElementAction($sSession, $sElement_mail, 'value',$mail)
_WD_ElementAction($sSession, $sElement_pass, 'value',$pass)

; ==> Click Login button  *******************************************************************************
_WD_WaitElement($sSession, $_WD_LOCATOR_ByXPath, "//*[@id='loginButton']"  )
Local $sButton = _WD_FindElement($sSession, $_WD_LOCATOR_ByXPath,"//*[@id='loginButton']" )
_WD_ElementAction($sSession, $sButton, 'click')
;**********************************************************************************************************

Sleep(1500)


Func SetupGecko()
    _WD_Option('Driver', 'geckodriver.exe')
    _WD_Option('DriverParams', '--log trace')
    _WD_Option('Port', 4444)
    $sDesiredCapabilities = '{"desiredCapabilities":{"javascriptEnabled":true,"nativeEvents":true,"acceptInsecureCerts":true}}'
;    $sDesiredCapabilities = '{"capabilities": {"alwaysMatch": {"goog: chromeOptions": {"w3c": true, "excludeSwitches": ["enable-automation"]}}}}'
EndFunc   ;==>SetupGecko

Alles anzeigen

Code

1639161492880   geckodriver     INFO    geckodriver 0.21.0
1639161492880   webdriver::httpapi      DEBUG   Creating routes
1639161492880   geckodriver     INFO    Listening on 127.0.0.1:4444
1639161493182   webdriver::server       DEBUG   -> POST /session//window/maximize
1639161493182   webdriver::server       DEBUG   <- 404 Not Found {"value":{"error":"unknown command","message":"POST /session//window/maximize did not match a known command","stacktrace":""}}
1639161493182   webdriver::server       DEBUG   -> POST /session {"desiredCapabilities":{"javascriptEnabled":true,"nativeEvents":true,"acceptInsecureCerts":true}}
1639161493198   mozrunner::runner       INFO    Running command: "C:\\Program Files (x86)\\Mozilla Firefox\\firefox.exe" "-marionette" "-foreground" "-no-remote" "-profile" "C:\\Users\\xx2\\AppData\\Local\\Temp\\rust_mozprofile.QD3h3SdYVXwJ"
1639161493204   geckodriver::marionette DEBUG   Waiting 60s to connect to browser on 127.0.0.1:57338
1639161495325   geckodriver::marionette DEBUG   Connected to Marionette on 127.0.0.1:57338
1639161495372   webdriver::server       DEBUG   <- 200 OK {"value": {"sessionId":"1b67c902-846f-414a-a40e-46c6d981322f","capabilities":{"acceptInsecureCerts":true,"browserName":"firefox","browserVersion":"94.0.2","capabilities":{"desiredCapabilities":{"acceptInsecureCerts":true,"javascriptEnabled":true,"nativeEvents":true}},"javascriptEnabled":true,"moz:accessibilityChecks":false,"moz:buildID":"20211119140621","moz:headless":false,"moz:processID":4956,"moz:profile":"C:\\Users\\xx2\\AppData\\Local\\Temp\\rust_mozprofile.QD3h3SdYVXwJ","moz:shutdownTimeout":60000,"moz:useNonSpecCompliantPointerOrigin":false,"moz:webdriverClick":true,"nativeEvents":true,"pageLoadStrategy":"normal","platformName":"windows","platformVersion":"10.0","proxy":{},"setWindowRect":true,"strictFileInteractability":false,"timeouts":{"implicit":0,"pageLoad":300000,"script":30000},"unhandledPromptBehavior":"dismiss and notify"}}}
1639161495387   webdriver::server       DEBUG   -> POST /session/1b67c902-846f-414a-a40e-46c6d981322f/url {"url":"https://mydrive.tomtom.com/de_de/#mode=viewport+viewport=49.91511,7.83762,12.43,0,-0+ver=3"}
1639161496245   webdriver::server       DEBUG   <- 200 OK {"value": null}
1639161496257   webdriver::server       DEBUG   -> POST /session/1b67c902-846f-414a-a40e-46c6d981322f/element {"using":"xpath","value":"//button[contains(text(),'Anmelden')]"}
1639161496281   webdriver::server       DEBUG   <- 200 OK {"value":{"element-6066-11e4-a52e-4f735466cecf":"863302d1-4467-48e0-9665-88086e9ed4b9"}}
1639161496281   webdriver::server       DEBUG   -> POST /session/1b67c902-846f-414a-a40e-46c6d981322f/element {"using":"xpath","value":"//button[contains(text(),'Anmelden')]"}
1639161496333   webdriver::server       DEBUG   <- 200 OK {"value":{"element-6066-11e4-a52e-4f735466cecf":"863302d1-4467-48e0-9665-88086e9ed4b9"}}
1639161496345   webdriver::server       DEBUG   -> POST /session/1b67c902-846f-414a-a40e-46c6d981322f/element/863302d1-4467-48e0-9665-88086e9ed4b9/click {"id":"863302d1-4467-48e0-9665-88086e9ed4b9"}
1639161496573   webdriver::server       DEBUG   <- 200 OK {"value": null}
1639161496573   webdriver::server       DEBUG   -> POST /session/1b67c902-846f-414a-a40e-46c6d981322f/element {"using":"xpath","value":"//input[@type='text']"}
1639161496625   webdriver::server       DEBUG   <- 200 OK {"value":{"element-6066-11e4-a52e-4f735466cecf":"329f1962-15d6-4b0c-a9da-4ea4c76417f7"}}
1639161496630   webdriver::server       DEBUG   -> POST /session/1b67c902-846f-414a-a40e-46c6d981322f/element {"using":"xpath","value":"//input[@type='text']"}
1639161496650   webdriver::server       DEBUG   <- 200 OK {"value":{"element-6066-11e4-a52e-4f735466cecf":"329f1962-15d6-4b0c-a9da-4ea4c76417f7"}}
1639161496660   webdriver::server       DEBUG   -> POST /session/1b67c902-846f-414a-a40e-46c6d981322f/element {"using":"xpath","value":"//input[@type='password']"}
1639161496665   webdriver::server       DEBUG   <- 404 Not Found {"value":{"error":"no such element","message":"Unable to locate element: //input[@type='password']","stacktrace":"WebDriverError@chrome://remote/content/shared/webdriver/Errors.jsm:181:5\nNoSuchElementError@chrome://remote/content/shared/webdriver/Errors.jsm:393:5\nelement.find/</<@chrome://remote/content/marionette/element.js:299:16\n"}}
1639161497688   webdriver::server       DEBUG   -> POST /session/1b67c902-846f-414a-a40e-46c6d981322f/element {"using":"xpath","value":"//input[@type='password']"}
1639161497738   webdriver::server       DEBUG   <- 404 Not Found {"value":{"error":"no such element","message":"Unable to locate element: //input[@type='password']","stacktrace":"WebDriverError@chrome://remote/content/shared/webdriver/Errors.jsm:181:5\nNoSuchElementError@chrome://remote/content/shared/webdriver/Errors.jsm:393:5\nelement.find/</<@chrome://remote/content/marionette/element.js:299:16\n"}}
1639161498787   webdriver::server       DEBUG   -> POST /session/1b67c902-846f-414a-a40e-46c6d981322f/element {"using":"xpath","value":"//input[@type='password']"}
1639161499002   webdriver::server       DEBUG   <- 404 Not Found {"value":{"error":"no such element","message":"Unable to locate element: //input[@type='password']","stacktrace":"WebDriverError@chrome://remote/content/shared/webdriver/Errors.jsm:181:5\nNoSuchElementError@chrome://remote/content/shared/webdriver/Errors.jsm:393:5\nelement.find/</<@chrome://remote/content/marionette/element.js:299:16\n"}}
1639161500010   webdriver::server       DEBUG   -> POST /session/1b67c902-846f-414a-a40e-46c6d981322f/element {"using":"xpath","value":"//input[@type='password']"}
1639161500013   webdriver::server       DEBUG   <- 404 Not Found {"value":{"error":"no such element","message":"Unable to locate element: //input[@type='password']","stacktrace":"WebDriverError@chrome://remote/content/shared/webdriver/Errors.jsm:181:5\nNoSuchElementError@chrome://remote/content/shared/webdriver/Errors.jsm:393:5\nelement.find/</<@chrome://remote/content/marionette/element.js:299:16\n"}}
1639161501018   webdriver::server       DEBUG   -> POST /session/1b67c902-846f-414a-a40e-46c6d981322f/element {"using":"xpath","value":"//input[@type='password']"}
1639161501022   webdriver::server       DEBUG   <- 404 Not Found {"value":{"error":"no such element","message":"Unable to locate element: //input[@type='password']","stacktrace":"WebDriverError@chrome://remote/content/shared/webdriver/Errors.jsm:181:5\nNoSuchElementError@chrome://remote/content/shared/webdriver/Errors.jsm:393:5\nelement.find/</<@chrome://remote/content/marionette/element.js:299:16\n"}}
1639161502036   webdriver::server       DEBUG   -> POST /session/1b67c902-846f-414a-a40e-46c6d981322f/element {"using":"xpath","value":"//input[@type='password']"}
1639161502042   webdriver::server       DEBUG   <- 404 Not Found {"value":{"error":"no such element","message":"Unable to locate element: //input[@type='password']","stacktrace":"WebDriverError@chrome://remote/content/shared/webdriver/Errors.jsm:181:5\nNoSuchElementError@chrome://remote/content/shared/webdriver/Errors.jsm:393:5\nelement.find/</<@chrome://remote/content/marionette/element.js:299:16\n"}}
1639161503061   webdriver::server       DEBUG   -> POST /session/1b67c902-846f-414a-a40e-46c6d981322f/element {"using":"xpath","value":"//input[@type='password']"}
1639161503069   webdriver::server       DEBUG   <- 404 Not Found {"value":{"error":"no such element","message":"Unable to locate element: //input[@type='password']","stacktrace":"WebDriverError@chrome://remote/content/shared/webdriver/Errors.jsm:181:5\nNoSuchElementError@chrome://remote/content/shared/webdriver/Errors.jsm:393:5\nelement.find/</<@chrome://remote/content/marionette/element.js:299:16\n"}}
1639161504082   webdriver::server       DEBUG   -> POST /session/1b67c902-846f-414a-a40e-46c6d981322f/element {"using":"xpath","value":"//input[@type='password']"}
1639161504089   webdriver::server       DEBUG   <- 404 Not Found {"value":{"error":"no such element","message":"Unable to locate element: //input[@type='password']","stacktrace":"WebDriverError@chrome://remote/content/shared/webdriver/Errors.jsm:181:5\nNoSuchElementError@chrome://remote/content/shared/webdriver/Errors.jsm:393:5\nelement.find/</<@chrome://remote/content/marionette/element.js:299:16\n"}}
1639161505116   webdriver::server       DEBUG   -> POST /session/1b67c902-846f-414a-a40e-46c6d981322f/element {"using":"xpath","value":"//input[@type='password']"}
1639161505120   webdriver::server       DEBUG   <- 404 Not Found {"value":{"error":"no such element","message":"Unable to locate element: //input[@type='password']","stacktrace":"WebDriverError@chrome://remote/content/shared/webdriver/Errors.jsm:181:5\nNoSuchElementError@chrome://remote/content/shared/webdriver/Errors.jsm:393:5\nelement.find/</<@chrome://remote/content/marionette/element.js:299:16\n"}}
1639161506138   webdriver::server       DEBUG   -> POST /session/1b67c902-846f-414a-a40e-46c6d981322f/element {"using":"xpath","value":"//input[@type='password']"}
1639161506138   webdriver::server       DEBUG   Deleting session
1639161506454   geckodriver::marionette DEBUG   Browser process stopped: exit code: 0
1639161506654   webdriver::server       DEBUG   <- 500 Internal Server Error {"value":{"error":"unknown error","message":"Failed to decode response from marionette","stacktrace":""}}
1639161506654   webdriver::server       DEBUG   -> POST /session/1b67c902-846f-414a-a40e-46c6d981322f/element {"using":"xpath","value":"//input[@type='password']"}
1639161506654   webdriver::server       DEBUG   <- 500 Internal Server Error {"value":{"error":"session not created","message":"Tried to run command without establishing a connection","stacktrace":""}}
1639161506670   webdriver::server       DEBUG   -> POST /session/1b67c902-846f-414a-a40e-46c6d981322f/element/329f1962-15d6-4b0c-a9da-4ea4c76417f7/value {"id":"329f1962-15d6-4b0c-a9da-4ea4c76417f7", "text":"test@gmx.de", "value":["t","e","s","t","@","g","m","x",".","d","e"]}
1639161506670   webdriver::server       DEBUG   <- 500 Internal Server Error {"value":{"error":"session not created","message":"Tried to run command without establishing a connection","stacktrace":""}}
1639161506670   webdriver::server       DEBUG   -> POST /session/1b67c902-846f-414a-a40e-46c6d981322f/element//value {"id":"", "text":"Pass1234", "value":["P","a","s","s","1","2","3","4"]}
1639161506670   webdriver::server       DEBUG   <- 404 Not Found {"value":{"error":"unknown command","message":"POST /session/1b67c902-846f-414a-a40e-46c6d981322f/element//value did not match a known command","stacktrace":""}}
1639161506677   webdriver::server       DEBUG   -> POST /session/1b67c902-846f-414a-a40e-46c6d981322f/element {"using":"xpath","value":"//*[@id='loginButton']"}
1639161506677   webdriver::server       DEBUG   <- 500 Internal Server Error {"value":{"error":"session not created","message":"Tried to run command without establishing a connection","stacktrace":""}}
1639161506677   webdriver::server       DEBUG   -> POST /session/1b67c902-846f-414a-a40e-46c6d981322f/element {"using":"xpath","value":"//*[@id='loginButton']"}
1639161506677   webdriver::server       DEBUG   <- 500 Internal Server Error {"value":{"error":"session not created","message":"Tried to run command without establishing a connection","stacktrace":""}}
1639161506677   webdriver::server       DEBUG   -> POST /session/1b67c902-846f-414a-a40e-46c6d981322f/element//click {"id":""}
1639161506677   webdriver::server       DEBUG   <- 404 Not Found {"value":{"error":"unknown command","message":"POST /session/1b67c902-846f-414a-a40e-46c6d981322f/element//click did not match a known command","stacktrace":""}}

Alles anzeigen

Vielen Dank

und liebe Grüße

Windi

Windi

Hallo,

liebe Experten, habe schon eine ganze Zeit damit verbracht mich in ein Programm einzuloggen.

Leider ohne Erfolg.

Da mein englisch nicht so gut ist, habe ich mir die ganzen Seiten von Danp2 mit dem Übersetzer angeschaut.

Ich komme einfach nicht weiter.

Vielleicht ist einer so nett und hilft mir dabei.

Bin absoluter Anfänger!

Liebe Grüße

Windi

C

#include "wd_core.au3"
#include "wd_helper.au3"

;$_WD_DEBUG = False

FileChangeDir(".\WebDriver-0.1.0.13")
Local $sDesiredCapabilities, $sSession, $sElement
;Local $sEmailAddress = 'mein@gmx.de'
;Local $sPassword = 'meinpassword'

SetupGecko()
_WD_Window($sSession, "Maximize", "")
_WD_Startup()
Local $sSession = _WD_CreateSession($sDesiredCapabilities)
_WD_Navigate($sSession, "https://mydrive.tomtom.com/de_de/#+viewport=51.80712,7.8184,13,0,-0+ver=3 ")


;$sElement = _WD_FindElement($sSession, $_WD_LOCATOR_ByXPath,'//*[@id="cookie_banner_allow_button"]')
;sleep(1000)
;_WD_ElementAction ($sSession, $sElement, "click" )


; Click Anmelde button
    Local $sButton = _WD_FindElement($sSession, $_WD_LOCATOR_ByXPath, '//*[@id="greenland-desktop-headerView-loginButton"]')
    _WD_ElementAction($sSession, $sButton, 'click')
;    _WD_LoadWait($sSession, 2000)




Func SetupGecko()
    _WD_Option('Driver', 'geckodriver.exe')
    _WD_Option('DriverParams', '--log trace')
    _WD_Option('Port', 4444)
    $sDesiredCapabilities = '{"desiredCapabilities":{"javascriptEnabled":true,"nativeEvents":true,"acceptInsecureCerts":true}}'
EndFunc   ;==>SetupGecko

Alles anzeigen

Windi

Zitat von water

Wie ist Dein Outlook konfiguriert, dass es Mails nicht sofort versendet und warum (schlechte Datenverbindung ...)?

Outlook ist normal konfiguriert.

3 Konten 1&1, GMX und Strato

5 Regeln zum automatischen sortieren in verschiedene Mail-Ordner.

PC an Lan 100er Leitung

Am Laptop:

1 Konto bei GMX

und keine Regeln

an WLan

beide verhalten sich gleich.

War es das was du wissen wolltest.

Windi

So funktioniert es nicht.

Ich denke Outlook muss erst geschlossen sein und dann wieder geöffnet.

Dann kommt auch dieses Fenster "Outlook Nachrichtenübermitlung"

Windi

Ok probiere ich!

Danke

Windi

Ich hab das jetzt mal so für mich gelöst.

Es funktioniert auch.

Es ist zwar nicht die feine Art.

Es wird euch bestimmt auch nicht gefallen.

Gruß Windi

Code

      _OL_ItemSend ( $oOutlook , $oItem )  ; sendet ohne nachfrage
      _OL_Close ( $oOutlook )
      
      Local $oOutlook = _OL_Open()
      Sleep (3000)
      _OL_ItemSendReceive($oOutlook, True)
      Sleep (3000)
      _OL_Close ( $oOutlook )

Windi

Super Danke!

Manches kenne ich noch aus der DOS Zeit.

Aber man wird alt und vergisst viel.

Windi

Konnte mich noch nicht mit der OulookEx befassen.

Hatte Probleme mit der GPX Datei.

z.B. beim Ort: Frankfurt / Main

das mag gpx überhaupt nicht das hatte ich ihm abgewöhnt.

Müller GmbH CO. KG mag er auch nicht.

Muss jetzt mal testen wie sich das mit - & usw verhält.

Gruß Windi

Windi

Danke erstmal an euch.

Das hatte ich schon fast 2mal.

Zitat von Bitnugger

Das Sleep von 10 auf 10000 setzen... erhöht aber die Wahrscheinlichkeit extrem, das Windi vor Erhalt der Mail bereits verstorben ist.

Windi

Hallo Bitnugger,

Danke für dein Bemühungen.

In der Gui werden mehrere Labels 2 Zeilig angezeigt.

1. Zeile z. B. "Bitte warten......."

2. Zeile "Daten werden verarbeitet"

manchmal auch nur 1 zeilig dann wird die 1. Zeile gelöscht

und die 2. Zeile geändert.

Aus diesem Grund ist da auch kein Text drin.

Local $Meldung = GUICtrlCreateLabel("", $Poslinks - 150, $Poshoch +500, 550, 30)

Es ist vielleicht etwas einfach, aber es funktioniert.

Die Meldungen sind alle in: GUISetFont(18).

Code-Tags ==> Ein bisschen übersichtlich, muss ich es schon haben, sonst blicke ich überhaupt nicht mehr durch.

Du hast das 2 mal drin ist das so korrekt.

Code

    ;$oItem.display ; zeigt die Mail Kontrolle
    _OL_ItemSend($oOutlook, $oItem)      ; sendet ohne nachfrage
    _OL_ItemSend($oOutlook, $oItem)      ; sendet ohne nachfrage

Code

  _OL_ItemSendReceive($oOutlook, True)

Das hab ich so probiert funktioniert aber nicht wenn Outook nicht voher offen ist.

Und wenn es offen ist muss ich trotzdem nochmal

"Senden/Empfangen" drücken bis die Mail kommt.

Gruß Windi

Windi

OK, muss nochmal ein bisschen testen.

Danke!

Windi

Hallo Water,

ich habe das jetzt so eingefügt:

_OL_ItemSend ( $oOutlook , $oItem ) ; sendet ohne nachfrage

_OL_ItemSendReceive($oOutlook, True)

_OL_Close ( $oOutlook )

ist es sinnvoll, Outlook zuerst mit Run zu starten.

Die Mail soll ja aufs Handy!

Wenn sie über Outlook nicht versendet wird, kann sie ja auch nicht am Handy erscheinen.

Windi

Danke für die schnelle Rückmeldung.

Zitat von water

_OL_ItemSend versendet doch die Mail?!

Hab es mit _OL_ItemSend probiert.

Es funktioniert nur, wenn ich Outlook öffne und (senden und empfangen) drücke.

Kann man es auch so einstellen, das es ohne Outlook zu öffnen sendet??????

Ps.

Global wurde duch Local ersetzt.

Ich hoffe ihr seid jetzt zufrieden mit mir.

Gruß

Windi

HTML

Func Mail_senden() ;Funtion Mail_senden
            Local $oOutlook = _OL_Open()
         If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF", "Error creating a connection to Outlook. @error = " & @error & ", @extended = " & @extended)
            Local $sMeineMailadresse = $Mailadress
            Local $sBetreff = "Telefonnummern Kunden Tour " & _NowDate()
            Local $aTermine = __ParseCSV($Quelldatei, ';') ; <== Name der Eingabedatei hier anpassen!
            Local $sBody = "<html><body>"
         For $i = 1 to UBound($aTermine) - 1
            If $aTermine[$i][0] <> "" Then ; ignoriere leere Zeilen
               $sBody &= "<P><b><u>" & $aTermine[$i][1] & "</u></b><br>" ; Vorname Name
               $sBody &= $aTermine[$i][2] & "<br>" ; Straße
               If StringLen($aTermine[$i][3]) = 4 Then
                  $sBody &= "0" & $aTermine[$i][3] & " " & $aTermine[$i][4] & "<br>" ; PLZ Ort 4 stellig mit 0
               Else
                  $sBody &= $aTermine[$i][3] & " " & $aTermine[$i][4] & "<br>" ; PLZ Ort 5 stellig
               Endif
               If $aTermine[$i][5] <> "" Then $sBody &= "Privat: " & $aTermine[$i][5] & "<br>" ; Telefonnr 1
               If $aTermine[$i][6] <> "" Then $sBody &= "Firma:  " & $aTermine[$i][6] & "<br>" ; Telefonnr 2
               If $aTermine[$i][7] <> "" Then $sBody &= "Mobil:  " & $aTermine[$i][7] & "<br>" ; Handy
            EndIf
         Next
               $sBody &= "</html></body>"
               Local $oItem = _OL_ItemCreate($oOutlook, $olMailItem, "", "", "Subject=" & $sBetreff, "BodyFormat=" & $olFormatHTML, "HTMLBody=" & $sBody)
            If @error <> 0 Then Exit MsgBox(16, "", "Item Create: @error = " & @error & ", @extended = " & @extended)
               _OL_ItemRecipientAdd($oOutlook, $oItem, Default, $olTo, $sMeineMailadresse)
            If @error <> 0 Then Exit MsgBox(16, "", "Recipient Add: @error = " & @error & ", @extended = " & @extended)
                ;$oItem.display ; zeigt die Mail Kontrolle
                _OL_ItemSend ( $oOutlook , $oItem )  ; sendet ohne nachfrage
                _OL_Close ( $oOutlook )

                GUISetFont(18)

               Local $Meldung = GUICtrlCreateLabel("", $Poslinks - 150, $Poshoch +500, 550, 30)
               Local $Meldung = GUICtrlCreateLabel("Mail versendet an " &$Mailadress  ,  $Poslinks - 100, $Poshoch + 500, 600, 30)
               GUICtrlSetColor ($Meldung , $COLOR_Green)

 EndFunc ;==> Funktion Mail_senden

Alles anzeigen

Windi

Guten Morgen,

ihr Experten.

hab da mal eine Frage.

Kann man mit der OutookEx eine Mail senden, ohne das man nochmal extra Outlook öffnen muß.

Gruß

Windi

HTML

Func Mail_senden() ;Funtion Mail_senden
            Global $oOutlook = _OL_Open()
         If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF", "Error creating a connection to Outlook. @error = " & @error & ", @extended = " & @extended)
            Global $sMeineMailadresse = $Mailadress
            Global $sBetreff = "Test " & _NowDate()
            Global $aTermine = __ParseCSV($Quelldatei, ';') ; <== Name der Eingabedatei hier anpassen!
            Global $sBody = "<html><body>"
         For $i = 1 to UBound($aTermine) - 1
            If $aTermine[$i][0] <> "" Then ; ignoriere leere Zeilen
               $sBody &= "<P><b><u>" & $aTermine[$i][1] & "</u></b><br>" ; Vorname Name
               $sBody &= $aTermine[$i][2] & "<br>" ; Straße
               If StringLen($aTermine[$i][3]) = 4 Then
                  $sBody &= "0" & $aTermine[$i][3] & " " & $aTermine[$i][4] & "<br>" ; PLZ Ort 4 stellig mit 0
               Else
                  $sBody &= $aTermine[$i][3] & " " & $aTermine[$i][4] & "<br>" ; PLZ Ort 5 stellig
               Endif
               If $aTermine[$i][5] <> "" Then $sBody &= "Privat: " & $aTermine[$i][5] & "<br>" ; Telefonnr 1
               If $aTermine[$i][6] <> "" Then $sBody &= "Firma:  " & $aTermine[$i][6] & "<br>" ; Telefonnr 2
               If $aTermine[$i][7] <> "" Then $sBody &= "Mobil:  " & $aTermine[$i][7] & "<br>" ; Handy
            EndIf
         Next
               $sBody &= "</html></body>"
               Global $oItem = _OL_ItemCreate($oOutlook, $olMailItem, "", "", "Subject=" & $sBetreff, "BodyFormat=" & $olFormatHTML, "HTMLBody=" & $sBody)
            If @error <> 0 Then Exit MsgBox(16, "", "Item Create: @error = " & @error & ", @extended = " & @extended)
               _OL_ItemRecipientAdd($oOutlook, $oItem, Default, $olTo, $sMeineMailadresse)
            If @error <> 0 Then Exit MsgBox(16, "", "Recipient Add: @error = " & @error & ", @extended = " & @extended)
                ;$oItem.display ; zeigt die Mail Kontrolle
                _OL_ItemSend ( $oOutlook , $oItem )  
                _OL_Close ( $oOutlook )
 EndFunc ;==> Funktion Mail_senden

Alles anzeigen

Windi

Thema erledigt!

Windi

Guten Abend,

ich möchte mich nochmals ganz herzlich bedanken, bei allen die mich bei meinem Skript unterstützt haben.

Ohne euch hätte ich mit Sicherheit schon lange vorher aufgegeben.

Das mit den Webseiten ausfüllen habe ich allein hinbekommen (_IEGetObjById).

Danke nochmal für eure Geduld mit mir.

Ich wünsche euch allen schöne Pfingsten

und liebe Grüße

Windi

Windi

Ich weiß es schon zu schätzen, was ihr für eine Arbeit für mich gemacht habt.

Und bin euch auch sehr dankbar dafür.

Denn ohne Euch hätte ich mit Sicherheit schon lange aufgegeben.

Sowas wie dein Scribt suche ich. Hab schon das halbe englische Forum übersetzt.

Soll ich ein neues Thema aufmachen.

Gruß

Windi

Windi

Natürlich, so soll es ja auch sein. Mach ich ja auch so.

Zitat von Bitnugger

Ja leck mich doch... so einfach kann RegEx sein...

Hab nur gedacht weil das von Bitnugger kam!

Obwohl das Thema schon abgehakt war.

Gruß Windi

Windi

Hab ich was falsch gemacht, oder warum meldet ihr euch nicht mehr?

Windi

Hallo,

na Vatertag gut Überstanden.

Kann mir bitte mal jemand auf meine Frage antworten.

Code

 _IEBodyReadText($IE)

Funktioniert auf dieser Seite nicht.

Gruß Windi

Beiträge von Windi

Webdriver Button drücken

Webdriver Button drücken

OutlookEX Mail automatisch senden

OutlookEX Mail automatisch senden

OutlookEX Mail automatisch senden

OutlookEX Mail automatisch senden

OutlookEX Mail automatisch senden

OutlookEX Mail automatisch senden

OutlookEX Mail automatisch senden

OutlookEX Mail automatisch senden

OutlookEX Mail automatisch senden

OutlookEX Mail automatisch senden

OutlookEX Mail automatisch senden

OutlookEX Mail automatisch senden

Tomtom Navi prüfen ob Netzwerk aktiv ist

Tomtom Navi prüfen ob Netzwerk aktiv ist

Tomtom Navi prüfen ob Netzwerk aktiv ist

Tomtom Navi prüfen ob Netzwerk aktiv ist

Tomtom Navi prüfen ob Netzwerk aktiv ist

Tomtom Navi prüfen ob Netzwerk aktiv ist