找回密码
 加入
搜索
查看: 5398|回复: 4

[BUG报告] 关于_INetMail 在WIN 7 下中文乱码

[复制链接]
发表于 2009-10-25 16:46:42 | 显示全部楼层 |阅读模式
关于_INetMail 在WIN 7 下中文乱码,XP下正常~~~

#include <INet.au3>
_INetMail ( $s_MailTo, $s_MailSubject, $s_MailBody )
发表于 2011-2-27 15:29:50 | 显示全部楼层
我也发现了,怎么解决呢
发表于 2012-3-13 14:05:42 | 显示全部楼层
修改INET.AU3中的代码
原文:
Func _INetMail($s_MailTo, $s_MailSubject, $s_MailBody)
        Local $prev = Opt("ExpandEnvStrings", 1)
        Local $var, $dflt = RegRead('HKCU\Software\Clients\Mail', "")
        If $dflt = "Windows Live Mail" Then
                $var = RegRead('HKCR\WLMail.Url.Mailto\Shell\open\command', "")
        Else
                $var = RegRead('HKCR\mailto\shell\open\command', "")
        EndIf
        Local $ret = Run(StringReplace($var, '%1', _INetExplorerCapable('mailto:' & $s_MailTo & '?subject=' & $s_MailSubject & '&body=' & $s_MailBody)))
        Local $nError = @error, $nExtended = @extended
        Opt("ExpandEnvStrings", $prev)
        Return SetError($nError, $nExtended, $ret)
EndFunc   ;==>_INetMail
修改后:
Func _INetMail($s_MailTo, $s_MailSubject, $s_MailBody)
        Local $prev = Opt("ExpandEnvStrings", 1)
        Local $var, $dflt = RegRead('HKCU\Software\Clients\Mail', "")
        If $dflt = "Windows Live Mail" Then
                $var = RegRead('HKCR\WLMail.Url.Mailto\Shell\open\command', "")
        Else
                $var = RegRead('HKCR\mailto\shell\open\command', "")
        EndIf
        Local $ret = Run(StringReplace($var, '%1', 'mailto:' & $s_MailTo & '?subject=' & $s_MailSubject & '&body=' & $s_MailBody))
        Local $nError = @error, $nExtended = @extended
        Opt("ExpandEnvStrings", $prev)
        Return SetError($nError, $nExtended, $ret)
EndFunc   ;==>_INetMail
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-3-29 05:44 , Processed in 0.066098 second(s), 19 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表