VBA发送邮件

lanlingeh

请问VBA可以调用Coremail发送邮件吗

古柳木

同问，兄弟解决了吗？

古柳木

请问解决了吗，同样有需求

lm11132

Sub SendEmail()
    Dim OutApp As Object
    Dim OutMail As Object

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    With OutMail
        .To = "recipient@example.com"
        .Subject = "Test Email"
        .Body = "This is a test email sent from VBA"
        .SendUsingAccount = OutApp.Session.Accounts.Item("yourusername@example.com")
        .Send
    End With

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub
上面代码中的"yourusername@example.com"需要替换为你自己的CoreMail账户的邮箱地址，subject和Body替换为自己的内容。确保Outlook已经配置好了CoreMail账户。这种方式发送邮件简单易懂，但是别忘记引用Outlook工程以及Outlook邮件客户端的支持。

lm11132

Sub SendEmail()
    Dim OutApp As Object
    Dim OutMail As Object

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    With OutMail
        .To = "recipient@example.com"
        .Subject = "Test Email"
        .Body = "This is a test email sent from VBA"
        .SendUsingAccount = OutApp.Session.Accounts.Item("yourusername@example.com")
        .Send
    End With

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

上面代码中的"yourusername@example.com"替换为你自己的CoreMail账户的邮箱地址，需要确保Outlook已经配置好了CoreMail账户。这种方式发送邮件简单易懂，但是需要引用Outlook工程及Outlook邮件客户端的支持。

smsn

如果不行用oe，可以百度下： vba  cdo message

古柳木

看来确实很难啊

zzpsx

word中可以调取outlook发送邮件，excel好像不行。实在折腾的话，装个foxmail，右键点击文件发送。
其实和office文档协同最好的是outlook express 6.0，能够发送word的正文。
目前的outlook只能把正文当附件发送。