Danke Dir. Funktioniert.
Allerdings musste ich auch Rich Text umstellen. Beim einfachen Text habe ich einen leeren String zurück bekommen obwohl er erkannt hat das die Signatur enabled und der Typ Text ist.
Aber hab vielen Dank. Da kann endlich das VBA-Script weg.
Gruß Thomas
Hallo,
ich probiere automatisiert eine Email über Lotus Notes zu versenden. Das funktioniert soweit auch. Das einzigste was ich nicht hin bekomme ist die Signatur vorher auszulesen und an die Nachricht zu hängen. Das Logo funktioniert komischerweise.
Den Code habe ich von VBA übersetzt. Da funktioniert es mit der Signatur.
Danke für eure Hilfe.
Gruß Thomas
#include <date.au3>
#include <file.au3>
Global $recipient, $Subject, $bodytext, $attachment, $saveit = "True", $Signature = ""
$recipient = "123@123.de"
$Subject = "123"
$bodytext = "123"
SendNotesMail($recipient, $Subject, $bodytext, $attachment, $saveit)
Func SendNotesMail($recipient, $Subject, $bodytext, $attachment, $saveit)
$Session = ObjCreate("Notes.NotesSession")
$UserName = $Session.UserName
$MailDbName = StringLeft($UserName, 1) & StringRight($UserName, (StringLen($UserName) - StringInStr(1, $UserName, " "))) & ".nsf"
$Maildb = $Session.GETDATABASE("", $MailDbName)
If $Maildb.IsOpen = 1 Then
Else
$Maildb.OPENMAIL()
EndIf
$MailDoc = $Maildb.CREATEDOCUMENT
$MailDoc.Form = "Memo"
$MailSignature = $Maildb.GetProfileDocument("CalendarProfile")
;MsgBox("","",$MailSignature.GetItemValue("Signature"))
$MailDoc.Logo = $MailSignature.GetItemValue("DefaultLogo")
$MailDoc.sendto = $recipient
$MailDoc.Subject = $Subject
$MailDoc.SAVEMESSAGEONSEND = $saveit
$Body = $MailDoc.CREATERICHTEXTITEM("Body")
$Body.AppendText($bodytext)
If $attachment <> "" Then
If FileExists(@ScriptDir & "" & $attachment) Then
$filename = $attachment
$fullpath = @ScriptDir & "" & $attachment
ElseIf FileExists($attachment) Then
$pos = StringInStr($attachment, "", 0, -1)
$filename = StringTrimLeft($attachment, $pos)
$fullpath = $attachment
Else
MsgBox(0, "LoNo Error", "attachment not found")
Exit
EndIf
$EmbedObj = $Body.EMBEDOBJECT(1454, "", $fullpath, $filename)
EndIf
$Body.AppendText($Signature)
$MailDoc.PostedDate = _Now()
$MailDoc.SEND(0, $recipient)
$Maildb = "NULL"
$MailDoc = "NULL"
$AttachME = "NULL"
$Session = "NULL"
$EmbedObj = "NULL"
EndFuncPublic Function NotesMailSend(aRec As Variant, Optional cc As Variant, _
Optional bcc As Variant, _
Optional strBetreff As Variant, _
Optional strText As Variant, _
Optional strMsg As Variant, _
Optional strAtt As String)
Dim objNotes As Object, objNotesDB As Object, objNotesMailDoc As Object, objNotesMailProfileDoc As Object
Dim SendItem, NCopyItem, BlindCopyToItem, i As Integer, rtitem, rtitem1
'MsgBox aRec 'Empfänger anzeigen
' Zuweisung der Objektvariablen
Set objNotes = GetObject("", "Notes.Notessession")
Set objNotesDB = objNotes.GETDATABASE("", "")
' Öffnen der Standard-Maildatenbank / Erstellen neues Maildokument
Call objNotesDB.OPENMAIL
Set objNotesMailDoc = objNotesDB.CREATEDOCUMENT
objNotesMailDoc.Form = "Memo"
'Signatur Notes holen
Dim StrSignature As String
StrSignature = Chr(10) & Chr(10) '& Chr(10) & Chr(10) & objNotesDB.GetProfileDocument("CalendarProfile").GetItemValue("Signature")(0)
'Profildokument holen und im Speicher halten
Set objNotesMailProfileDoc = objNotesDB.GetProfileDocument("CalendarProfile")
StrSignature = StrSignature & objNotesMailProfileDoc.GetItemValue("Signature")(0)
objNotesMailDoc.Logo = objNotesMailProfileDoc.GetItemValue("DefaultLogo")(0)
'Call objNotesMailDoc.Save(False, False)
Set SendItem = objNotesMailDoc.APPENDITEMVALUE("SendTo", "")
Set NCopyItem = objNotesMailDoc.APPENDITEMVALUE("CopyTo", "")
Set BlindCopyToItem = objNotesMailDoc.APPENDITEMVALUE("BlindCopyTo", "")
objNotesMailDoc.SendTo = Split(aRec, ";") 'aRec
objNotesMailDoc.CopyTo = Split(cc, ";")
objNotesMailDoc.BlindCopyTo = Split(bcc, ";")
objNotesMailDoc.Subject = strBetreff
Set rtitem = objNotesMailDoc.CreateRichTextItem("Body")
With rtitem
.AppendText (strText)
If strAtt <> "" Then
Call rtitem.EmbedObject(1454, "", strAtt)
End If
.AppendText (StrSignature)
.AddNewLine (1)
End With
'objNotesMailDoc.BodY = strText & StrSignature
rtitem.AddNewLine (1)
' Mail zustellen
objNotesMailDoc.PostedDate = Now
Call objNotesMailDoc.Save(False, False)
Call objNotesMailDoc.SEND(False)
objNotesMailDoc.RemoveItem ("DeliveredDate")
'1. true steht für nicht speichern in Entwürfen
Call objNotesMailDoc.Save(True, False)
' Nachricht an Benutzer
MsgBox strMsg, vbInformation, "Notesmail versenden..."
' Objektvariablen zurücksetzen
Call objNotes.Close
Set objNotesDB = Nothing
Set objNotesMailDoc = Nothing
Set objNotes = Nothing
End FunctionHier die Func wo ich den Click ausführen will.
Func _Banking_Diba($sUrl, $sUsername, $Pwd)
_FFStart($sUrl)
If _FFIsConnected() Then
If _FFLoadWait() Then
_FFSetValue($sUsername, "view:kontonummer:border:border_body:kontonummer", "name")
_FFSetValue($Pwd, "view:pin:border:border_body:pin", "name")
_FFClick("view:next", "name", 1)
If _FFLoadWait() Then
_FFClick(_FFXPath("/html/body/div[3]/form/div[4]/div/fieldset[1]/div/div/div/span[2]/fieldset/div[2]/div[1]/button[1]","",9))
Endif
EndIf
EndIf
EndFuncEdit:
Hier die Fehlermeldung aus dem Scite Debug-Fenster
__FFSend: FFau3.xpath=null;try{FFau3.xpath=FFau3.WCD.evaluate("/html/body/div[3]/form/div[4]/div/fieldset[1]/div/div/div/span[2]/fieldset/div[2]/div[1]/button[1]",FFau3.WCD,null,XPathResult.FIRST_ORDERED_NODE_TYPE,null).singleNodeValue;}catch(e){'_FFXPath_Error: '+e;};
__FFRecv: [object XrayWrapper [object HTMLButtonElement]] - {checkValidity: function() {...}, setCustomValidity: function() {...}, autofocus: false, disabled: false, form: {...}, formAction: "", formEnctype: "", ...}
__FFSend: try{FFau3.simulateEvent(FFau3.xpath,'MouseEvents','click');}catch(e){'_FFCmd_Err';};
__FFRecv: 1Hallo,
ich habe ein Problem mit _FFXPath und einem Knopf. Kann mir da jemand mal helfen?
Den Xpath habe ich ausgelesen:
/html/body/div[3]/form/div[4]/div/fieldset[1]/div/div/div/span[2]/fieldset/div[2]/div[1]/button[1]Aber ich schaffe es nicht den Knopf zu drücken.
Danke schonmal.
Gruß
Wenn man das Dokument mit der Hand öffnet funktioniert es.
Mit deiner UDF am Firmenlaptop das gleiche und am privaten läufts auch damit.
Das scheint ja dann anscheinend an Ecel zu liegen. Am Firmenlaptop ist 2003 installiert und am privaten 2013.
Ich habs grad an meinem privaten Laptop ausprobiert. Da funktionierts komischerweise.
Hi,
hier mal mein Code
[autoit]#include <Excel.au3>
$File = "C:\Users\tr506470\Documents\Daten\Arbeitsbericht\Archiv\2014\KW_XX2014_DE_V6_08.xls"
$Excel = _ExcelBookOpen($File)
If @error = 1 Then
MsgBox(0, "Fehler!", "Das Excel-Objekt konnte nicht erstellt werden")
Exit
ElseIf @error = 2 Then
MsgBox(0, "Fehler!", "Die Datei existiert nicht!")
Exit
EndIf
In der Excel-Tablle ist folgendes:
B3 = KW (manuell eingeben)
C3 = =KALENDERWOCHE(HEUTE()-1)
D3 = =WENN(C3=B3;WENN(C3=1;(52)*7+1;WENN(C3<=9;(C3)*7-8;WENN(C3>=9;(C3)*7-7)));WENN(B3=1;(52)*7+1;WENN(B3<=9;(B3)*7-8;WENN(B3>=9;(B3)*7-7))))
I3 = =WENN(B3=9;(D3+7);(D3+6))
A8 = =WENN(C3=10;D3;D3)Ich hoffe das hilft.
Gruß Thomas
Moin,
ich probier mit _ExcelBookopen eine Excel Tabelle zu öffnen. Das funktioniert auch, allerdings funktionieren dann die Excelfunktion wie =KALDENDERWOCHE nicht mehr.
Das 1te Bild ist geöffnet über _ExcelBookopen
Das 2te ist so geöffnet.
Hat da evtl jemand eine Lösung für?
Gruß Thomas
Hat sich erledigt. Hab das gefunden
Hallo,
ich würde gerne nur die sichtbaren Fenster auslesen. Hat da jemand eine Idee wie ich das machen kann?
Das Fenster von meinem VPN Programm verschwindet im Tray sobald verbindung da ist und ich würde gerne abfragenab wann das Fenster verschwunden ist.
Gruß Thomas
Danke. Mit der Umleitung klappt es.
Hi,
bei dem geht die msgbox garnicht auf. man sieht nur das Fenster in der Taskleiste.
Hi,
die msgbox ist immer noch leer. Aber unten im SCite-Fenster kommt die Ausgabe von der vpncli.exe.
Gruß
Hi,
das gleiche Ergebnis wie vorher. Es öffnet sich i mmer nur eine leere DOS-Box. Im Taskmanager ist die vpncli.exe aber dann gestartet.
Hab den Code nochmal umgeschreiben zum testen.
[autoit]#include<Constants.au3>
Local $Ausgabe
Local $Ergebnis
;$Ausgabe = Run(@ComSpec & " /c ping 127.0.0.1", @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
$Ausgabe = Runwait(@ComSpec & " /c vpncli.exe", "C:\Programme\Cisco\Cisco AnyConnect VPN Client" , @SW_SHOW, $STDERR_CHILD + $STDOUT_CHILD)
;$Ausgabe = Run("C:\Programme\Cisco\Cisco AnyConnect VPN Client\vpncli.exe" ,"C:\Programme\Cisco\Cisco AnyConnect VPN Client", @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
;$Ausgabe = ShellExecute("C:\Programme\Cisco\Cisco AnyConnect VPN Client\vpncli.exe")
ProcessWaitClose($Ausgabe)
$Ergebnis= StdoutRead($Ausgabe)
MsgBox(0, "STDOUT gelesen:", $Ergebnis)
Wenn ich oben den Ping ausführe lasse bekomme ich das Ergebnis ausgelesen. Aber nicht mit der vpncli.exe.
Wenn ich die EXE mit ShellExecute starte bekomme ich auch die richtige Anazeige in der DOS-Box. Mit ShellExecute kann ich aber StdoutRead nicht benutzen richtig?
Gruß Thomas
Hallo,
ich habe ein Problem mit einem Skript. Und zwar will ich ein Programm starten und dann die Ausgabe der Kommandozeile auslesen.
[autoit]#include<Constants.au3>
If FileExists("C:\Programme\Cisco\Cisco AnyConnect VPN Client\vpncli.exe") Then
Local $Status = Run(@ComSpec & " /c vpncli.exe", "C:\Programme\Cisco\Cisco AnyConnect VPN Client\" , @SW_SHOW, $STDERR_CHILD + $STDOUT_CHILD)
Local $line
While 1
$line = StdoutRead($Status)
If @error Then ExitLoop
MsgBox(0, "STDOUT gelesen:", $line)
WEnd
While 1
$line = StderrRead($Status)
If @error Then ExitLoop
MsgBox(0, "STDERR gelesen:", $line)
WEnd
MsgBox(0, "Debug", "Wie aufregend...")
EndIf
Ich bekomme mit dem Code aber nichts angezeigt und finde meinen Fehler nicht.
Normalerweise sieht die Ausgabe so wie auf dem angehängten Bild.
Vielen Dank schonmal.
Gruß Thomas