在Excel中通过Outlook发送邮件,可以选择Excel的内容进行发送

tmtony

在Excel中通过Outlook发送邮件,可以选择Excel的内容进行发送Sub Send_Msg()

Dim objOL As New Outlook.Application

Dim objMail As MailItemSet objOL = New Outlook.Application

Set objMail = objOL.CreateItem(olMailItem)With objMail

    .To = "name@domain.com"

    .Subject = "Automated Mail Response"

    .Body = "This is an automated message from Excel. " & _

        "The cost of the item that you inquired about is: " & _

        Format(Range("A1").Value, "$ #,###.#0") & "."

    .Display

End WithSet objMail = Nothing

Set objOL = Nothing

End Sub

secowu

用户类型未定义？

bach

dddddddddddddd