访问VBA代码:使用outlook分别保存和通过电子邮件发送输出

Sub SaveOutputToFile()
    Dim output As String
    Dim filePath As String
    
    ' 生成输出内容
    output = "这是要保存的输出内容。"
    
    ' 指定保存的文件路径
    filePath = "C:\output.txt"
    
    ' 打开输出文件并将内容写入
    Open filePath For Output As #1
    Print #1, output
    Close #1
    
    ' 在保存后显示成功消息
    MsgBox "输出已保存到文件：" & filePath
End Sub

Sub SendOutputByEmail()
    Dim output As String
    Dim recipient As String
    Dim subject As String
    
    ' 生成输出内容
    output = "这是要发送的输出内容。"
    
    ' 指定收件人和主题
    recipient = "recipient@example.com"
    subject = "输出内容"
    
    ' 创建Outlook应用程序对象
    Dim outlookApp As Object
    Set outlookApp = CreateObject("Outlook.Application")
    
    ' 创建邮件对象
    Dim mailItem As Object
    Set mailItem = outlookApp.CreateItem(0)
    
    ' 设置收件人、主题和内容
    With mailItem
        .To = recipient
        .Subject = subject
        .Body = output
        ' 可以使用.Attachments.Add方法添加附件
        
        ' 发送邮件
        .Send
    End With
    
    ' 释放对象
    Set mailItem = Nothing
    Set outlookApp = Nothing
    
    ' 在发送后显示成功消息
    MsgBox "输出已通过电子邮件发送给：" & recipient
End Sub