使用Outlook 2003收到的邮件，中文内容全显示为问号怎么解决？

Posted 2023-04-02

今天收到香港发过来邮件，里面的中文内容全显示为问号怎么解决？之前和香港那边收发都没有问题？

你只在乱码的邮件里改下 “查看” 里“编码”就可以了。

比如，你的情况是，繁体邮件出现乱码，只在打开这个乱码邮件，再在菜单里选择->查看-> 编码，在编码下再选择相应的繁体就可以了。 参考技术A 　　双击打开邮件后，点击菜单“邮件”，点击“动作”栏的“其他动作”，再选“编码”，选“UNICODE-UTF8"或其它编码试试。 参考技术B 这是“编码”问题。可根据编码关键字来百度解决办法。

vbscript 使用Outlook夹带档案寄信。新版Outlook会出现提示，要求允许寄信。

' http://www.rgagnon.com/wshdetails/wsh-0018.html
' http://www.rgagnon.com/wshdetails/wsh-0002.html
' http://www.bernhard-ehlers.de/projects/OutlookSecurity.html

' Get full filepath from 1st argument
Dim Full_Filename
Dim Filename
Set objArgs = WScript.Arguments
if WScript.Arguments.Count=0 then
  WScript.Quit 1
end if
' WScript.Echo objArgs(0)
Full_Filename = objArgs(0)

' Parse to simple filename
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(Full_Filename)
Filename = objFSO.GetFileName(objFile)
Set objFile = Nothing
Set objFSO = Nothing

' Start to mail
Dim ToAddress
Dim MessageSubject
Dim MessageBody
Dim MessageAttachment
ToAddress = "your_user@your_domain.com"   ' change this...
MessageSubject = Filename
MessageBody = "Send " & Filename & " via Outlook"
MessageAttachment = Full_Filename

Dim ol, ns, newMail
Set ol = WScript.CreateObject("Outlook.Application")
Set ns = ol.getNamespace("MAPI")
ns.logon "","",true,false
Set newMail = ol.CreateItem(olMailItem)
newMail.Subject = MessageSubject
newMail.Body = MessageBody & vbCrLf

' validate the recipient, just in case...
Set myRecipient = ns.CreateRecipient(ToAddress)
myRecipient.Resolve
If Not myRecipient.Resolved Then
   MsgBox "unknown recipient"
Else
   newMail.Recipients.Add(myRecipient)
   newMail.Attachments.Add(MessageAttachment).Displayname = Filename
   newMail.Send
   WScript.Echo "Mail successed! " & Full_Filename
End If

Set ol = Nothing