如何自动设置邮件正文的称呼名字

hustnzj

请问各位前辈：如何自动将outlook的To中的第一个发件人如excelhome,hustnzj (Shenzhen)中的hustnzj提取出来放到发送邮件正文的称呼Dear 后面：如

Dear hustnzj.

非常感谢！{:soso__1707578217466519630_2:}

hustnzj

难道这个要求是不可行的？{:soso_e140:}

hustnzj

outlook版真是冷清啊，哪里有outlookhome啊？{:soso_e109:}

lb_bn

应当可行，不过不知产用什么事件触发。

hustnzj

lb_bn 发表于 2011-10-23 16:48
应当可行，不过不知产用什么事件触发。

终于有高手回复了，虽然没有给出答案，但仍给了我希望。。。

dsd999

你的要求只能是在发送的时候自动在最前面加上，想显示出来没法做到。

hustnzj

dsd999 发表于 2011-10-25 11:21
你的要求只能是在发送的时候自动在最前面加上，想显示出来没法做到。

{:soso__734180700200387416_3:}万分感谢版主大人啊，这样也可以的，能否帮助下，非常非常感谢！

dsd999

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

Dim mi As mailItem
Dim loc As Integer
Dim firstCon As String

If Item.Class = 43 Then
    Set mi = Item
    loc = InStr(mi.To, ";")
    If (loc > 0) Then
    firstCon = Left(mi.To, loc - 1)
    Else
    firstCon = mi.To
    End If
    mi.Body = "Hello " & firstCon & " : " & Chr(13) & Chr(10) & mi.Body
End If

End Sub

hustnzj

dsd999 发表于 2011-10-25 13:40
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

Dim mi As mailItem

多谢版主，这就去试试

hustnzj

dsd999 发表于 2011-10-25 13:40
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

Dim mi As mailItem

版主大人，我试了您给的代码，发现它会把邮件变为纯文本内容，请问有什么办法避免吗？万分感谢！{:soso__14031875668861784278_3:}

发送前是这样：

发送时弹出这个对话框，不知道在哪里可以设置不再显示：


发送后，邮件内容全部文本化了，能否避免啊？{:soso_e109:}