Office 365发送电子邮件的解决方案（VBA）

Office 365发送电子邮件的解决方案（VBA）

Dim outlookApp As Outlook.Application
Set outlookApp = New Outlook.Application

Dim mailItem As Outlook.MailItem
Set mailItem = outlookApp.CreateItem(olMailItem)

With mailItem
    .To = "recipient@example.com"
    .Subject = "这是一封测试邮件"
    .Body = "这是一封使用VBA发送的测试邮件。"
    .Attachments.Add "C:\path\to\attachment.pdf"
End With

mailItem.Send

Sub SendEmail()
    Dim outlookApp As Outlook.Application
    Set outlookApp = New Outlook.Application
    
    Dim mailItem As Outlook.MailItem
    Set mailItem = outlookApp.CreateItem(olMailItem)
    
    With mailItem
        .To = "recipient@example.com"
        .Subject = "这是一封测试邮件"
        .Body = "这是一封使用VBA发送的测试邮件。"
        .Attachments.Add "C:\path\to\attachment.pdf"
    End With
    
    mailItem.Send
End Sub

Sub SendDailyReport()
    Dim outlookApp As Outlook.Application
    Set outlookApp = New Outlook.Application
    
    Dim mailItem As Outlook.MailItem
    Set mailItem = outlookApp.CreateItem(olMailItem)
    
    ' 设置收件人
    mailItem.To = "recipient@example.com"
    
    ' 设置主题
    mailItem.Subject = "每日销售报告"
    
    ' 创建邮件正文
    Dim body As String
    body = "以下是今日销售数据：" & vbCrLf & vbCrLf
    
    ' 导入Excel数据
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    Dim rng As Range
    Set rng = ws.UsedRange
    
    Dim table As String
    table = ""
    Dim row As Range
    For Each row In rng.Rows
        table = table & ""
        Dim cell As Range
        For Each cell In row.Cells
            table = table & ""
        Next cell
        table = table & ""
    Next row
    table = table & "
    
" & cell.Value & "
    
"
    
    body = body & table
    
    ' 设置邮件正文的HTML格式
    mailItem.HTMLBody = body
    
    ' 发送邮件
    mailItem.Send
End Sub