在日常工作中，我们常常需要将Excel表格中的数据发送给相关人员或客户。虽然手动复制粘贴数据并发送邮件是一种方法，但这种方式效率较低且容易出错。通过使用Excel的内置功能和VBA（Visual Basic for Applications）脚本，我们可以轻松实现自动化发送邮件的功能。以下是具体的操作步骤：

1. 准备工作

首先，确保您的电脑已安装Microsoft Outlook，并且已经配置好电子邮件账户。如果没有配置，可以在Outlook中设置您的邮箱账号。

2. 启用开发者选项

为了编写和运行VBA脚本，您需要先启用Excel的“开发者”选项卡：

- 打开Excel。

- 点击左上角的“文件”菜单。

- 选择“选项”，然后点击“自定义功能区”。

- 在右侧的主选项卡中勾选“开发者”，点击“确定”。

3. 插入VBA代码

接下来，我们将编写一个简单的VBA宏来发送邮件：

- 点击“开发者”选项卡中的“Visual Basic”按钮，打开VBA编辑器。

- 在左侧的项目资源管理器中，右键点击“VBAProject (您的文件名)”。

- 选择“插入” -> “模块”，然后输入以下代码：

```vba

Sub SendEmail()

Dim OutApp As Object

Dim OutMail As Object

Dim ws As Worksheet

Dim lastRow As Long

Dim i As Long

' 设置工作表和最后一行

Set ws = ThisWorkbook.Sheets(1)

lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

' 创建Outlook对象

Set OutApp = CreateObject("Outlook.Application")

Set OutMail = OutApp.CreateItem(0)

' 遍历数据并发送邮件

For i = 2 To lastRow

On Error Resume Next

With OutMail

.To = ws.Cells(i, 1).Value

.Subject = ws.Cells(i, 2).Value

.Body = ws.Cells(i, 3).Value

.SendUsingAccount = OutApp.Session.Accounts.Item(1)

.Display ' 或者使用 .Send 来直接发送

End With

On Error GoTo 0

Next i

' 清理对象

Set OutMail = Nothing

Set OutApp = Nothing

End Sub

```

4. 测试宏

保存并关闭VBA编辑器后，返回Excel界面。确保您的Excel表格中有邮件地址、主题和正文等信息。例如，在A列输入收件人邮箱地址，在B列输入邮件主题，在C列输入邮件正文。

然后，点击“开发者”选项卡中的“宏”按钮，选择刚才创建的`SendEmail`宏并运行。系统会自动遍历表格中的每一行数据，并发送相应的邮件。

5. 注意事项

- 请确保所有输入的数据格式正确，特别是邮件地址。

- 如果需要发送大量邮件，请考虑分批次处理以避免系统过载。

- 运行宏时，可能需要允许Excel访问您的Outlook账户。

通过以上步骤，您可以轻松地利用Excel自动化发送邮件信息到指定邮箱。这种方法不仅提高了工作效率，还减少了人为错误的可能性。希望这些技巧能帮助您更好地管理和处理日常任务！