Caracteres esquisitos

Boa tarde a todos,
Estoa a usar este codigo para enviar e-mails por smtp e funciona perfeitamente no entanto o e-mail ao chegar ao destinatario o campo remetente aparece com caracteres esquisitos.
Alguem pode dar alguma dica para que os caracteres esquisitos nao apareçam?

Agradeco antecipadamente a vossa ajuda.

Public Sub SendEmail()
Dim imsg As Object
Dim iconf As Object
Dim flds As Object
Dim schema As String


Set imsg = CreateObject("CDO.Message")
Set iconf = CreateObject("CDO.Configuration")
Set flds = iconf.Fields

' send one copy with SMTP server (with autentication)
schema = "http://schemas.microsoft.com/cdo/configuration/"
flds.Item(schema & "sendusing") = cdoSendUsingPort
flds.Item(schema & "smtpserver") = "smtp.mail.org"
flds.Item(schema & "smtpserverport") = 25
flds.Item(schema & "smtpauthenticate") = cdoBasic
flds.Item(schema & "sendusername") = ""
flds.Item(schema & "sendpassword") = ""
flds.Item(schema & "smtpusessl") = False
flds.Update

With imsg
.To = "destinatario@mail.com"
.CC = "destinatario@mail.com"
.From = "destinatario@mail.com"
.subject = "Confirmacao da Recepcao do seu Pedido (por favor nao responda a este e-mail)"
.AddAttachment ""
.HTMLBody = "AVISO. Se receber um e-mail por engano, agradecemos devolucao e aviso ao remetente"
.Organization = ""
.ReplyTo = ""

Set .Configuration = iconf
.Send
End With

Set iconf = Nothing
Set imsg = Nothing
Set flds = Nothing
End Sub

Tente incluir:

Código:

flds.Item("http://schemas.microsoft.com/cdo/configuration/languagecode") = 1046

Referências:

http://www.ne2.net/genel/cdo-message-cdo-configuration-language-character-bug-0-working-code.html
http://msdn.microsoft.com/en-us/library/exchange/ms872878(v=exchg.65).aspx


Flw...