邮件在Excel中使用VBA工作表
在本文中,我们将创建一个宏,以将工作表作为附件发送到电子邮件中。
在运行宏之前,我们需要指定电子邮件ID和电子邮件主题。
在此示例中,我们希望将“ DataSheet”作为附件发送到电子邮件中。
逻辑解释
我们创建了“ MailSheet”宏,该宏从文本框中获取电子邮件ID和电子邮件主题。它创建“ DataSheet”的新副本,将其保存并作为附件发送。
代码说明
Sheets(“ DataSheet”)。Copy上面的代码用于在新工作簿中创建“ DataSheet”的副本。
ActiveWorkbook.SaveAs“&ThisWorkbook.Name _&”“&StrDate&” .xls“的一部分
上面的代码用于保存新工作簿。
ActiveWorkbook.SendMail EmailID,MailSubject上面的代码用于将活动工作簿作为指定电子邮件ID的附件发送给指定主题。
ActiveWorkbook.Close False上面的代码用于关闭活动工作簿而不保存它。
请遵循以下代码
Sub MailSheet() 'Declaring variables Dim StrDate, EmailID, MailSubject As String 'Getting value for Email ID and subject from textboxes EmailID = Sheet1.TextBox1.Value MailSubject = Sheet1.TextBox2.Value 'Copying "DataSheet" to new workbook Sheets("DataSheet").Copy 'Formatting date and time to particular format StrDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm") 'Saving active workbook with new name ActiveWorkbook.SaveAs "Part of " & ThisWorkbook.Name _ & " " & StrDate & ".xls" 'Sending mail ActiveWorkbook.SendMail EmailID, MailSubject 'Close the active workbook ActiveWorkbook.Close False End Sub
如果您喜欢此博客,请在Facebook和Facebook上与您的朋友分享。
我们很希望收到您的来信,请让我们知道我们如何才能改善我们的工作并使您的工作更好。写信给我们[email protected]