Beiträge von Daniel

Daniel

Zitat von Bitnugger

Wenn das nicht funktioniert, liegt es definitiv nicht an dir... sondern an Outlook.

Liegt an Outlook...

Hängt wieder genau so im Entwürfe Ordner

@Bittnugger Ich hab mir Autoit nur über die Hilfe Stück für Stück angelesen und Grundlagen Programmierung gabs in der Technikerschule auch nur so lala.

Gibt zum Glück viele Foren in denen man sich viel Beispiele anschauen kann, für mich ist es hier das erste mal das ich meine Probleme nicht selbst lösen konnte

Wenn ich hier meine Oberfläche poste gibt´s wohl gleich einen Seitenbann... aber so sieht es halt aus wenn man was zusammen Bastelt und mehr ausprobiert als wirklich zu

wissen ob es so funktioniert.

Aber das Ergebnis funktioniert super, meine Mitarbeiter sind 50% schneller als mit em Papier und ich spar mir sicher jeden Tag 30-60 Minuten Aufträge abschreiben da ich die

eingegebenen Daten direkt in mein Dispoprogramm eintragen lassen kann und alles Dank AutoIt

Eingabe, Oberfläche und speichern der Daten wären wahrscheinlich mit Access sinnvoller gewesen aber jetzt läuft es auch so recht sicher!

beispiel.jpg

Daniel

Ich zieh die gespeicherten Stunden aus verschiedenen .csv und sende die dann per Mail!

Bitte nicht zu genau anschauen, bin nur Hobbyprogrammierer

Code

Global $merk = 0

While 1
   if @HOUR = 23 And $merk = 0 Then
      $merk = 1
      Global $sPath = "\\pfad"
      Global $sFilter = "*.csv";"*.mp3"

      Global $sListFile = _FileListToArray($sPath, $sFilter)
      Global $mitarbeiter[13]= ["","","","","","","","","","","","",""]
      Global $mitarbeitermerker [] = 0

         For $i = 1 To $sListFile[0]
                  $mitarbeitermerker  =StringSplit($sListFile[$i],".")
                  $mitarbeiter [$i] = $mitarbeitermerker [1]
         Next


      Global $mitarbeiterzeit[13]= ["0","0","0","0","0","0","0","0","0","0","0","0","0"]

        For $i = 1 To $sListFile[0]
            Local $Mitarbeiterdaten1 [][] = 0
            _FileReadToArray ("\\pfad\"&$sListFile[$i],$Mitarbeiterdaten1,$FRTA_NOCOUNT, ";")
            Local $iRows1 = UBound($Mitarbeiterdaten1, $UBOUND_ROWS)
      ;~   ConsoleWrite($iRows1&@CRLF)
            if $Mitarbeiterdaten1[$iRows1-1][0]=_NowDate() Then
            $mitarbeiterzeit[$i]=$Mitarbeiterdaten1[$iRows1-1][1]
            Else
            $mitarbeiterzeit[$i]="0"
            EndIf
         Next






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


      Global $sCurrentUser = $oOutlook.GetNameSpace("MAPI").CurrentUser.Name
;~       _OL_Wrapper_SendMail($oOutlook, $sCurrentUser, "", "", "Geschriebene Stunden", $mitarbeiterzeit[1]&" "&$mitarbeiter[1]&"<br>"&$mitarbeiterzeit[2]&" "&$mitarbeiter[2]&"<br>"&$mitarbeiterzeit[3]&" "&$mitarbeiter[3]&"<br>"&$mitarbeiterzeit[4]&" "&$mitarbeiter[4]&"<br>"&$mitarbeiterzeit[5]&" "&$mitarbeiter[5]&"<br>"&$mitarbeiterzeit[6]&" "&$mitarbeiter[6]&"<br>"&$mitarbeiterzeit[7]&" "&$mitarbeiter[7]&"<br>"&$mitarbeiterzeit[8]&" "&$mitarbeiter[8]&"<br>"&$mitarbeiterzeit[9]&" "&$mitarbeiter[9]&"<br>"&$mitarbeiterzeit[10]&" "&$mitarbeiter[10]&"<br>"&$mitarbeiterzeit[11]&" "&$mitarbeiter[11]&"<br>"&$mitarbeiterzeit[12]&" "&$mitarbeiter[12]&"<br>","" , $olFormatHTML, $olImportanceHigh)
      _OL_Wrapper_SendMail($oOutlook, $sCurrentUser, "", "", "Geschriebene Stunden", _SliceArraysToString($mitarbeiterzeit, $mitarbeiter), "", $olFormatHTML, $olImportanceHigh)
;~       If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF: _OutlookSendMail Wrapper Script", "Error sending mail. @error = " & @error & ", @extended: " & @extended)

      _OL_Close($oOutlook)

   EndIf

   if @HOUR = 0 Then $merk = 0

   Sleep (10000)
WEnd



Func _SliceArraysToString($mitarbeiterzeit, $mitarbeiter)
    If UBound($mitarbeiterzeit) < 1 Or UBound($mitarbeiterzeit) <> UBound($mitarbeiter) Then Return SetError(1, 0, '')
    Local $sRet
    For $i = 1 To UBound($mitarbeiter) -1 Step 1
        $sRet &= $mitarbeiterzeit[$i]&" "&$mitarbeiter[$i]&"<br>"
    Next
    Return $sRet
EndFunc

Alles anzeigen

Daniel

+ _OL_FolderAccess OK

+ _OL_ItemCreate OK

+ _OL_ItemModify OK

+ _OL_ItemRecipientAdd $sTo OK

Bis dahin gleich und dann kommt mein bekannter Fehler

Hab den gleichen Updatestand wie du nur bei mir ists die 365ger Version.

_OL_Wrapper_SendMail($oOutlook, $sCurrentUser)

Auch schon damit bekomm ich meinen schönen Fehler...

Bleibt auch nach neuinstallation von Office 365 bestehen....

Ich muss wohl damit leben das die Mails im Entwürfeordner liegen bleiben

oder ich schreib mir noch was um diese Mails in einen anderen Ordner zu verschieben und dann zu senden (was zumindest manuell funktioniert)

aber das übersteigt ein wenig meine Kenntnisse....hab zwar schon ne schöne Oberfläche für meine Mitarbeiter geschrieben mit der

alle Daten in csv`s abgelegt werden aber wenn ich in water`s quelltext schau hörts bei mir auf....

Daniel

Sorry für meine späte Antwort, bin gerade gut eingespannt....

Was ich noch nicht ganz verstehe, warum es von heut auf morgen nicht mehr geht,

es wurde in der Zeit auch kein Update gefahren.

Unbenannt.jpg

Unbennnt.jpg

Daniel

Super Danke für die Hilfe

Ist natürlich deutlich schöner mit ner Funktion aber mein Fehler bleibt leider der gleiche!

Ich werde heute mal nach der Outlookinstallation schauen....

Daniel

Hallo,

ich hab mir ein kleines Programm geschrieben welches Daten aus einer .csv liest und mir als E-Mail schickt.

Lief auch jetzt mehrere Wochen ohne Problem aber seit ca. 14 Tagen erhalte ich immer folgenden Fehler:

Die Mail wird auch im Ausgangsordner angezeigt, kann aber nicht direkt versendet werden.

Erst wenn sie in einen anderen Ordner verschoben wurde kann ich senden und kommt dann auch ohne Probleme an.

Code

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


      Global $sCurrentUser = $oOutlook.GetNameSpace("MAPI").CurrentUser.Name
      _OL_Wrapper_SendMail($oOutlook, $sCurrentUser, "", "", "Geschriebene Stunden", $mitarbeiterzeit[1]&" "&$mitarbeiter[1]&"<br>"&$mitarbeiterzeit[2]&" "&$mitarbeiter[2]&"<br>"&$mitarbeiterzeit[3]&" "&$mitarbeiter[3]&"<br>"&$mitarbeiterzeit[4]&" "&$mitarbeiter[4]&"<br>"&$mitarbeiterzeit[5]&" "&$mitarbeiter[5]&"<br>"&$mitarbeiterzeit[6]&" "&$mitarbeiter[6]&"<br>"&$mitarbeiterzeit[7]&" "&$mitarbeiter[7]&"<br>"&$mitarbeiterzeit[8]&" "&$mitarbeiter[8]&"<br>"&$mitarbeiterzeit[9]&" "&$mitarbeiter[9]&"<br>"&$mitarbeiterzeit[10]&" "&$mitarbeiter[10]&"<br>"&$mitarbeiterzeit[11]&" "&$mitarbeiter[11]&"<br>"&$mitarbeiterzeit[12]&" "&$mitarbeiter[12]&"<br>","" , $olFormatHTML, $olImportanceHigh)
      If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF: _OutlookSendMail Wrapper Script", "Error sending mail. @error = " & @error & ", @extended: " & @extended)

      _OL_Close($oOutlook)

Beiträge von Daniel

_OL_Wrapper_SendMail gibt den Fehler 6002 aus

_OL_Wrapper_SendMail gibt den Fehler 6002 aus

_OL_Wrapper_SendMail gibt den Fehler 6002 aus

_OL_Wrapper_SendMail gibt den Fehler 6002 aus

_OL_Wrapper_SendMail gibt den Fehler 6002 aus

_OL_Wrapper_SendMail gibt den Fehler 6002 aus