Hallo Leute,
habe in diesem Beitrag ein Thema gefunden bei der ich kurz eure Hilfe brauche:
[ gelöst ] shellexecute und mailto
Ich möchte die funktion noch mit dem Feld "VON" erweitern.
Was muss ich tun damit das geht?
; #FUNCTION# ====================================================================================================================
; Name...........: _INetMail
; Description ...: Open default mail client with given Address/Subject/Body
; Parameters ....: $s_MailTo - Address for E-Mail
; $s_MailCC - Adress for CC Mail (optional)
; $s_Subject - Subject <Weswolf at aol dot com>of E-Mail
; $s_MailBody - Body of E-Mail
;
; Return values .: On Success - Process ID of e-mail client
; On Failure - Returns 0 and sets @error to non-zero.
; Author ........: Wes Wolfe-Wolvereness <Weswolf at aol dot com>
; ===============================================================================================================================
Func _INetMail($s_MailTo, $s_MailSubject, $s_MailBody, $s_MailCC='')
Local $prev = Opt("ExpandEnvStrings", 1)
Local $var = RegRead('HKCR\mailto\shell\open\command', "")
;Local $ret = Run(StringReplace($var, '%1', _INetExplorerCapable('mailto:' & $s_MailTo & '?subject=' & $s_MailSubject & '&body=' & $s_MailBody)))
if $s_MailCC <> "" Then
Local $ret = Run(StringReplace($var, '%1', _INetExplorerCapable('mailto:' & $s_MailTo & '?subject=' & $s_MailSubject & '&CC=' & $s_MailCC & '&body=' & $s_MailBody)))
Else
Local $ret = Run(StringReplace($var, '%1', _INetExplorerCapable('mailto:' & $s_MailTo & '?subject=' & $s_MailSubject & '&body=' & $s_MailBody)))
EndIf
Local $nError = @error, $nExtended = @extended
Opt("ExpandEnvStrings", $prev)
Return SetError($nError, $nExtended, $ret)
EndFunc ;==>_INetMail
Vielen Dank für eure Unterstützung.
Inferior