AutoHotkey Community

;Schreibt in Outlook-Express (deutsche Version) automatisch die
;Anrede, indem aus der E-Mail Adresszeile der Nachname extrahiert wird.
;Hierzu gibt man im Body-Feld von Outlook einen der folgende Kürzel ein

;sh = Sehr geehrter Herr XXX,
;sf = Sehr geehrte Frau XXX,
;hh = Hallo Herr XXX,
;hf = Hallo Frau XXX,

::sh::
   {
   send, Sehr geehrter Herr{Space}
   gosub, Name_ermitteln
   return
   }
::sf::
   {
   send, Sehr geehrte Frau{Space}
   gosub, Name_ermitteln
   return
   }
::hf::
   {
   send, Hallo Frau{Space}
   gosub, Name_ermitteln
   return
   }
::hh::
   {
   send, Hallo Herr{Space}
   gosub, Name_ermitteln
   return
   }

Name_ermitteln:
WinWait, Neue Nachricht, 
IfWinNotActive, Neue Nachricht, , WinActivate, Neue Nachricht,
WinWaitActive, Neue Nachricht,
MouseClick, left,  86,  146 ;bei Bildschirmauflösung 1024 x 768 Mouseklick in die MailTo-Zeile (eventuell anpassen)
Send {CTRLDOWN}a{CTRLUP} ;gehe in die Zeile An:
Clipboard =  ; Clipboard löschen
Sleep, 100
Send, {CTRLDOWN}c{CTRLUP}{TAB}{TAB}{TAB}
ClipWait 0.5
EMail = %Clipboard%
StringSplit, Name, EMail, %A_Space%/.,@;_ ;Namenszeile in einzelne Bestandteile auflösen
StringTrimLeft, Nachname, Name2, 0 ;eventuell Variable Name1 nehmen, falls EMail Adressen im Format Nachname.Vorname organisiert sind
send %Nachname%,{Enter}{Enter}
return

;Automatische Anrede / Automate Adress
;schreibt in der deutschen Version von Outlook-Express automatisch die Anrede in den E-Mail Body
;hierzu einfach im Body-Feld von Outlook einen der folgenden Kürzel eingeben:

;wrotes in the german Version of Outlook-Express the adress, if one of the
;following Hot-strings is typed. For the english Version you have to adapt the german lines:

;sh = Sehr geehrter Herr XXX
;sf = Sehr geehrte Frau XXX
;hh = Hallo Herr XXX
;hf = Hallo Frau XXX

:C:sh::
   {
   send, Sehr geehrter Herr{Space}
   gosub, AA_Name_ermitteln
   return
   }
:C:sf::
   {
   send, Sehr geehrte Frau{Space}
   gosub, AA_Name_ermitteln
   return
   }
:C:hf::
   {
   send, Hallo Frau{Space}
   gosub, AA_Name_ermitteln
   return
   }
:C:hh::
   {
   send, Hallo Herr{Space}
   gosub, AA_Name_ermitteln
   return
   }

AA_Name_ermitteln:
WinWait, Neue Nachricht, 
IfWinNotActive, Neue Nachricht, , WinActivate, Neue Nachricht,
WinWaitActive, Neue Nachricht,
ControlGetText, AA_Name, RichEdit20W2, Neue Nachricht ;holt sich aus dem Mail-To Feld den Namen
StringSplit, AA_Name, AA_Name, %A_Space%/.,@;_ ;Namenszeile in einzelne Bestandteile auflösen
StringTrimLeft, AA_Name, AA_Name2, 0 ;eventuell Variable AA_Name1 nehmen, falls EMail Adressen im Format Nachname.Vorname
send %AA_Name%,{Enter}{Enter}
return