Thunderbird Mail

**BugFix**

Hi,
ich bastele grade an meinem seeeeehr komfortablen Mailscheduler für Thunderbird. Etwa 60 % der Arbeit sind schon erledigt und jetzt hänge ich eigentlich am wichtigsten: Einfügen des Absenders bzw. Auswahl per Tastaturbefehl/kombination.
Ich habe noch keine Möglichkeit gefunden per Tastatur eine im Vorfeld festgelegte Absenderadresse auszuwählen. Bei nur einem Konto wäre das egal - aber wer hat das schon.
Und TB ist völlig Control-resistent
Wenn ich hier nicht weiterkomm, kann ich das ganze Projekt in die Tonne treten. Wär echt schade.
Also falls jemand einen goldigen Einfall hat...

Edit:
Ich war vielleicht etwas ungenau:
Also die Absenderadresse liegt in einer Variable vor. Jetzt wird TB gestartet, 'Neue Nachricht' ausgewählt und in das Feld für Absender möchte ich jetzt die Adresse aus der Variablen haben/einfügen/auswählen -wie auch immer.

**BugFix**

Wie ich sehe, habt ihr auch keine zündende Idee.
Habe jetzt mal eine Anfrage ins Mozilla-Forum eingestellt. Mal sehen, ob die blickig sind.

Möchte euch aber nicht vorenthalten, was es eigentlich werden sollte.
Zum Testen bitte die Beta verwenden. Und euren Pfad für TB in "$path" eintragen (Zeile 8 ).

Spoiler anzeigen

C

#include <GUIConstants.au3>
#Include <Misc.au3>
#include <Array.au3>
#include <file.au3>


#region Deklaration
Global $absender, $adresse, $i, $aAdressen[1], $attachname = "", $x = 1, $y = 1, $aFullPath[1]
$path = "E:\Mozilla Thunderbird\thunderbird.exe"
; Anmerkung zu 1D-Arrays: $array[0] wird nicht belegt, somit erster Eintrag auch auf $array[1]
#endregion Deklaration


#region GUI
$GUI_MailSchedul = GUICreate("Thunderbird Mail Scheduler    ", 609, 642, -1, -1)
$grAbsender = GUICtrlCreateGroup("Absender", 16, 8, 577, 49)
$iAbsender = GUICtrlCreateInput("", 24, 24, 329, 21, -1, $WS_EX_CLIENTEDGE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$bAbsChg = GUICtrlCreateButton("Ändern", 496, 24, 89, 22)
$grEmpf = GUICtrlCreateGroup("Empfängerliste", 16, 64, 577, 49)
$cAdresslist = GUICtrlCreateCombo("", 24, 80, 329, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$bAdressAdd = GUICtrlCreateButton("Himzufügen", 384, 80, 89, 22)
$bAdressDel = GUICtrlCreateButton("Entfernen", 496, 80, 89, 22)
$grTextVar = GUICtrlCreateGroup("Textvariablen", 16, 120, 345, 49)
$cTextVar = GUICtrlCreateCombo("", 24, 138, 329, 21)
GUICtrlSetData(-1, "{Mail Nr: x}", "{Mail Nr: x}")  ; Platzhalter, werden bei Versand befüllt
GUICtrlSetData(-1, "{Mail Nr: x von y}")            ; Platzhalter
GUICtrlSetData(-1, "{Dateiname(n) Anhang}")         ; Platzhalter
GUICtrlCreateGroup("", -99, -99, 1, 1)
$grVarZiel = GUICtrlCreateGroup("Variable einfügen in:", 376, 120, 217, 49)
$bVarBetreff = GUICtrlCreateButton("Betreff", 384, 138, 89, 22)
$bVarMail = GUICtrlCreateButton("Mail", 496, 138, 89, 22)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$grBetreff = GUICtrlCreateGroup("Betreff", 16, 192, 577, 49)
$iBetreff = GUICtrlCreateInput("", 24, 210, 561, 21, -1, $WS_EX_CLIENTEDGE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$grMail = GUICtrlCreateGroup("Mail", 16, 248, 577, 209)
$eMail = GUICtrlCreateEdit("", 24, 264, 561, 185, -1, $WS_EX_CLIENTEDGE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$shape = GUICtrlCreateGraphic(16, 178, 577, 3, $SS_SUNKEN)
$grAttach = GUICtrlCreateGroup("Mail - Anhang", 16, 464, 449, 161)
$lAttach = GUICtrlCreateList("", 24, 486, 297, 149, -1, $WS_EX_CLIENTEDGE)
$rAttachSame = GUICtrlCreateRadio("Für alle gleich", 352, 486, 105, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$rAttachDiff = GUICtrlCreateRadio("Für jeden anders", 352, 509, 105, 17)
$bAttachAdd = GUICtrlCreateButton("Hinzufügen", 352, 560, 89, 22)
$bAttachDel = GUICtrlCreateButton("Entfernen", 352, 587, 89, 22)
$rAll4One = GUICtrlCreateRadio("an eine Adresse nacheinander", 352, 525, 97, 33, $BS_MULTILINE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$bClean = GUICtrlCreateButton("Auswahl löschen", 488, 472, 105, 25)
$bEscape = GUICtrlCreateButton("Abbrechen", 488, 507, 105, 25)
$cbDownPC = GUICtrlCreateCheckbox("PC Herunterfahren nach Versand", 488, 542, 105, 50, $BS_MULTILINE)
$bSend = GUICtrlCreateButton("Senden", 488, 600, 105, 25)
GUISetState(@SW_SHOW)
#endregion GUI


#region Code
Opt("WinTitleMatchMode",2)
While 1
	$msg = GuiGetMsg()
	Select
	Case $msg = $GUI_EVENT_CLOSE Or $msg = $bEscape
		ExitLoop
	Case $msg = $bAbsChg
		_AbsChg()
	Case $msg = $bAdressAdd
		_AdressAdd()
	Case $msg = $bAdressDel
		_AdressDel()
	Case $msg = $bVarBetreff
		_InVarBetreff()
	Case $msg = $bVarMail
		_InVarMail()
	Case $msg = $bAttachAdd
		_AttachAdd()
	Case $msg = $bAttachDel
		_AttachDel()
	Case $msg = $bClean
		_GUIclean()
	Case $msg = $bSend
		$modeSame = GUICtrlRead($rAttachSame)
		$modeDiff = GUICtrlRead($rAttachDiff)
		$modeOne = GUICtrlRead($rAll4One)
		Select
		Case $modeSame = 1
			;_Same4All()     ; Text und Anhang für alle gleich
		Case $modeDiff = 1
			;_Diff4All()     ; Text und Anhang für jede Adresse individuell
		Case $modeOne = 1
			;_All4One()      ; einzelner Empfänger erhält jeweils Mail + 1 Anhang bis Anhangliste leer (für gesplittete Anhänge)
		EndSelect
		If GUICtrlRead($cbDownPC) = 1 Then
			;PC Herunterfahren
		EndIf
	EndSelect
WEnd
Exit
#endregion Code


#region Funktionen
Func _AbsChg()
	GUISetState($GUI_MailSchedul, @SW_HIDE)
	Run($path)
	WinWaitActive("Mozilla Thunderbird")
	Sleep(500)
	Send("!b")
	Sleep(50)
	Send("g")
	MsgBox(0,"Absenderkonto","Bitte klicken Sie in der linken Spalte" & @LF & @LF & "auf das Absenderkonto." & @LF & @LF & @LF & "Bestätigen Sie die Auswahl mit <F9> !")
	While _IsPressed("78") = 0 ; Warten bis User-Auswahl beendet und <F9> gedrückt
		Sleep(150)
	WEnd
	Send("!e")
	Sleep(50)
	Send("+{HOME}")
	Send("^c")
	$absender = ClipGet()
	GUICtrlSetData($iAbsender, $absender)
	Send ("+{TAB}")
	Send ("+{TAB}") ; wechseln zum Kontonamen
	Send("^c")
	$konto = ClipGet()
	Send("{ESC}")
	Sleep(50)
	Send("!{F4}")
	GUISetState($GUI_MailSchedul, @SW_RESTORE)
EndFunc


Func _AdressAdd()
Dim $state = 1, $weiter
	GUISetState($GUI_MailSchedul, @SW_HIDE)
	Run($path)
	WinWaitActive("Mozilla Thunderbird")
	Sleep(50)
	Send("^2") ; öffnet Adressbuch
	WinWaitActive("Adressbuch")
	MsgBox(0,"Zieladresse","Bitte Doppelklick auf gewünschte Adresse im Adressbuch!")
	Do 
		ClipPut("")
		WinWaitActive("Karte")
		Sleep(250)
		Send("{TAB 4}")	; markiert Adresse
		Sleep(100)
		Send("^c")		; kopieren
		$adresse = ClipGet()
		Send("{ESC}")
		If $adresse <> "" Then
			GUICtrlSetData($cAdresslist, $adresse, $adresse)
			_ArrayAdd($aAdressen, $adresse)
		Else
			MsgBox(0,"Hinweis", "Auswahl Adresseintrag ist fehlgeschlagen!")
		EndIf
		$weiter = MsgBox(4,"gewählte Adresse: " & $adresse, "..weitere Adresse auswählen?")
		If $weiter = 7 Then Send("^q") ; nein (ja = 6)
		$state = WinGetState("Adressbuch")
	Until $state = 0
	Send("!d")
	Send("b")
	GUISetState($GUI_MailSchedul, @SW_RESTORE)
EndFunc


Func _AdressDel()
Dim $tmp = GUICtrlRead($cAdresslist), $i = 1
	While UBound($aAdressen) > 0
		If $aAdressen[$i] = $tmp Then 
			_ArrayDelete($aAdressen, $i)
			ExitLoop
		EndIf
		$i = $i +1
	WEnd
	GUICtrlSetData($cAdresslist, "")
	For $i = 1 To UBound($aAdressen) -1
		GUICtrlSetData($cAdresslist, $aAdressen[$i], $aAdressen[$i])
	Next
EndFunc


Func _InVarBetreff()
Dim $tmp = GUICtrlRead($cTextVar), $tmp1 = GUICtrlRead($iBetreff)
	$tmp = $tmp1 & "  " & $tmp
	$tmp = StringStripWS($tmp, 1) 
	GUICtrlSetData($iBetreff, $tmp)
EndFunc


Func _InVarMail()
Dim $tmp = GUICtrlRead($cTextVar), $tmp1 = GUICtrlRead($eMail)
	$tmp = $tmp1 & "  " & $tmp
	$tmp = StringStripWS($tmp, 1) 
	GUICtrlSetData($eMail, $tmp)
EndFunc	

Func _AttachAdd()
Dim $tmp, $sDrive, $sDir, $sFName, $sExt, $aPath
	$tmp = FileOpenDialog("",@HomePath, "Alle (*.*)")
	$iKeyIndex = _ArrayBinarySearch ( $aFullPath, $tmp )
	If Not @error Then
		MsgBox(0, "Achtung", "Diese Datei wurde bereits ausgewählt!")
	Else
		If $tmp <> ""  And $tmp <> 1 Then
			$aPath = _PathSplit($tmp, $sDrive, $sDir, $sFName, $sExt)
			_ArrayAdd($aFullPath, $tmp)   ; Array m. kpl. Pfaden aller Anhänge
			_ArraySort($aFullPath)        ; nur auf sortiertes Array _PathSplit() anwendbar
			GUICtrlSetData($lAttach, $sFName & $sExt)
			If $attachname = "" Then
				$attachname = $sFName & $sExt
			Else
				$attachname = $attachname & ",  " & $sFName & $sExt
			EndIf
		EndIf
	EndIf
EndFunc


Func _AttachDel()
Dim $tmp = GUICtrlRead($lAttach), $tmp1, $sDrive, $sDir, $sFName, $sExt, $aPath, $i = 1
	If $tmp <> "" Then
		While UBound($aFullPath) > 0
			$tmp1 = _PathSplit($aFullPath[$i], $sDrive, $sDir, $sFName, $sExt)
			If $sFName & $sExt = $tmp Then 
				_ArrayDelete($aFullPath, $i)
				ExitLoop
			EndIf
			$i = $i +1
		WEnd
		GUICtrlSetData($lAttach, "")
		For $i = 1 To UBound($aFullPath) -1
			$tmp1 = _PathSplit($aFullPath[$i], $sDrive, $sDir, $sFName, $sExt)
			GUICtrlSetData($lAttach, $sFName & $sExt)
			If $attachname = "" Then
				$attachname = $sFName & $sExt
			Else
				$attachname = $attachname & ",  " & $sFName & $sExt
			EndIf			
		Next
	EndIf
EndFunc


Func _GUIclean()
	GUICtrlSetData($cAdresslist, "")
	GUICtrlSetData($iBetreff, "")
	GUICtrlSetData($eMail, "")
	GUICtrlSetData($lAttach, "")
EndFunc


#endregion Funktionen

Alles anzeigen

Daniel W.

Kannste die nicht aus der Registry auslesen?
Weil meine Firefox und Seamonkey Directories sind da abgespeichert , sollte also kein Problem darstellen.

**BugFix**

Das Problem ist nicht das Auslesen, das ist easy.
Wenn du das Fenster 'neue Mail' öffnest, mußt du auswählen welchen Absender du haben willst (wenn mehrere Konten vorhanden sind).
Die Auswahl des Absenders habe ich bereits vorher getroffen, ich muß nur diese Adresse in das Absenderfeld eintragen. Da dies kein Eingabefeld ist und TB nicht seine Controls freigibt habe ich keine Möglichkeit ohne User-Eingriff den Absender auszuwählen.

Daniel W.

HM ja ich meinte nur weil du meinstest bei Path müsste man den eigenen path eintragen

**AspirinJunkie**

Wenn du das "Verfassen"-Fenster öffnest ist ja das Absender-Feld bereits automatisch fokusiert - du müsstest also bloß noch mit Send($deinAbsender) die Daten schreiben.

Ist zwar nicht sehr elegant aber dürfte funktionieren.
ControlSend bzw. ControlSetText scheiden ja aus.

Edit peethebee: :willkommen: bei uns, AspirinJunkie!

**BugFix**

Zitat

weil du meinstest bei Path müsste man den eigenen path eintragen

Jo, den eigenen Pfad sollst du schon eintragen - im fertigen Script frag ich das auch nicht in der Registry ab, weil ein Großteil der Mozilla-Nutzer nicht die Installationsversion nutzt. Alle Produkte der Mozillafamilie lassen sich ja zum Glück auch ohne Install-routine ausführen.
Im fertigen Produkt muß der User einmalig seinen Pfad auswählen, wird dann in einer INI-Datei abgelegt.

Edit:
@Aspirin Junkie:

Sry, mf aber da irrst du. Beim Öffnen des Verfassen-Fensters bist du nicht im Absender sondern im Adressfeld. Und das Absenderfeld nimmt keine Send()-Befehle entgegen.

**AspirinJunkie**

Sh.... stimmt - Lesen hilft.

Na egal - um das Dingens zu fokusieren brauchst du ja nur Send("!v") (deutsche Version).
Da kannst du ja leider nichts eintragen.
Ich sehe da jetzt nicht viele Möglichkeiten außer das du nochmal den Anfangsbuchstaben deines Users senden lässt dann wird ja das aktiviert.
Also nach Send("!v") dann folgendes:

Code

Send(StringTrimLeft ( $deineMailAdresse, 1 ))

Aber das dürfte ja auch nicht so der Bringer sein da du ja nicht richtig bei mehreren Addressen mit selbem Anfangsbuchstaben aussuchen kannst.

Naja - vielleicht hilft es dir ja doch weiter

**BugFix**

Da sind noch mehr Fallen:
- mehrere Absenderadressen mit gleichem Aliasnamen (z.B. Max <max@web.de>; Max <max@gmx.de)
- Usereinstellung, dass nur Mailadresse ohne Alias angezeigt wird bzw. gar kein Alias existiert

Aber das ist eh Banane, da selbst bei aktivem Absenderfeld das Senden von Anfangsbuchstaben oder kpl. Absendernamen keine Auswahl bewirkt. Und da liegt der Hund begraben.

**AspirinJunkie**

Ja war ja wie gesagt nur die einzige Idee die ich dazu hatte.

Aber das Senden der Anfangsbuchstaben klappt (wenn das Feld fokusiert ist) - hab es vorhin getestet.

Daniel W.

Zitat

Original von BugFix
Jo, den eigenen Pfad sollst du schon eintragen - im fertigen Script frag ich das auch nicht in der Registry ab, weil ein Großteil der Mozilla-Nutzer nicht die Installationsversion nutzt. Alle Produkte der Mozillafamilie lassen sich ja zum Glück auch ohne Install-routine ausführen.
Im fertigen Produkt muß der User einmalig seinen Pfad auswählen, wird dann in einer INI-Datei abgelegt.

Dann mach halt was wie:

Code

$reg = RegRead(mozilla reg)
If $reg = "" then 
    $reg = IniRead(mozilla ini)
EndIf

Oder geht das nicht?

**BugFix**

Ja so in der Art kann man das lösen. Aber wie gesagt, ist das nicht mein Problem.

An das Absenderfeld kann ich nur einen Buchstaben senden. Ich kann aber schlecht den User anweisen, zu jedem Konto einen Alias mit unterschiedlichem Anfangsbuchstaben anzulegen. - Dann wäre das Problem gelöst.
Aber wird z.B. kein Alias angelegt, generiert TB automatisch beim Versand diesen mit der Mailadresse (z.B. <meine.mail@123.de>). Ist das mehrfach der Fall,werden diese also identisch mit "<" angesprochen.

kastraf

Hallo,

Hast du schon eine lösung für Absenderfeld gefunden ?

**BugFix**

Nein, habe das Projekt nicht weiterverfolgt.
Es ist viel einfacher, mithilfe der unter AutoIt verfügbaren Mailfunktionen (z.B. _INetSmtpMailCom u.a.) eine eigene Mailoberfläche zu erstellen.

kastraf

wo finde ich den _INetSmtpMailCom ??
hab nur _INetSmtpMail

und wo gebe ich den meine login daten ein ?

kastraf

habs gefunden

THX MEGA

MailVersand