Question

尝试使用 _INetMail 功能从AutoIt发送包含UTF-8字符的电子邮件，导致生成的电子邮件文档中的字符显示不正确。

示例代码：

NULL

任何人都可以帮助我吗？

关于设置标题的内容

#include <Inet.au3>
#include <MsgBoxConstants.au3>

Local $sAddress = "me@you.com"
Local $sSubject = "Special chars öäüß"
Local $sBody = "My body text with special UTF-8 öäüß chars"
_INetMail($sAddress, $sSubject, $sBody)

但是如何将它注入 _INetMail 函数？

Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: quoted-printable

我认为它必须集中在这里：

Func _INetMail($sMailTo, $sMailSubject, $sMailBody)
    Local $iPrev = Opt("ExpandEnvStrings", 1)
    Local $sVar, $sDflt = RegRead('HKCU\Software\Clients\Mail', "")
    If $sDflt = "Windows Live Mail" Then
        $sVar = RegRead('HKCR\WLMail.Url.Mailto\Shell\open\command', "")
    Else
        $sVar = RegRead('HKCR\mailto\shell\open\command', "")
    EndIf
    Local $iRet = Run(StringReplace($sVar, '%1', _INetExplorerCapable('mailto:' & $sMailTo & '?subject=' & $sMailSubject & '&body=' & $sMailBody)))
    Local $iError = @error, $iExtended = @extended
    Opt("ExpandEnvStrings", $iPrev)
    Return SetError($iError, $iExtended, $iRet)
EndFunc   ;==>_INetMail

但我不能让它发挥作用。如何在标题处设置正确的字符集？

THX

自动发送电子邮件UTF-8

0 个答案: