Tag: 电子邮件集成

VBA代码用于通过电子邮件从工作表中select一个提供者

我写了一些代码，将提供商的报告分解成每个提供商的单独报告，然后将它们保存到桌面上的文件夹中，通过电子邮件发送给提供商。 现在我想添加一些代码，将自动发送电子邮件给我这些提供者，但让我先看看之前发送。 这是我的旧代码。 Sub VendorSeperate() Application.DisplayAlerts = False wb1 = ActiveWorkbook.Name SaveFolder397 = Format(Now(), "mm.dd.yy hh mm ss AM/PM") SaveFolder400 = "C:\Users\johndoe\Desktop\Test\" & SaveFolder397 On Error Resume Next MkDir SaveFolder400 On Error GoTo 0 [A2].Select ActiveWindow.FreezePanes = True batchdate = Format(Cells(2, 1), "mm.dd.yy") & " Sent " & Format(Now(), "mm.dd.yy") LR1 = Columns(1).Find("*", SearchDirection:=xlPrevious).Row For […]

Excel通过电子邮件发送此button的范围

我有一个表单有2个button（更新和广告）（这里的代码是从其中之一）。 如果您填写表格并按下其中一个表格，则可以制作或更新其他表格中的logging。 我想有一个embedded在他们的电子邮件function，所以当你按他们也发送相同的信息在电子邮件。 我是VBA新手。 这是我从互联网上下载的工作手册，并根据需要进行了更改。 所以我不是这个代码的devise者，但我看到Set myCopy = inputWks.Range("OrderEntry")是我需要的数据。 如何将其粘贴到电子邮件的正文中？ Sub UpdateLogRecord() Dim historyWks As Worksheet Dim inputWks As Worksheet Dim lRec As Long Dim oCol As Long Dim lRecRow As Long Dim myCopy As Range Dim myTest As Range Dim lRsp As Long Set inputWks = Worksheets("Input") Set historyWks = Worksheets("Werknemers") oCol = 3 […]