Question

我正在运行一个宏，用于通过Outlook发送邮件到多个收件人，并通过vba excel发送一个或多个附件。我并不精通宏，因此从各种来源获得了一些意见，并得出了以下最终代码。

但是我提到了最大值。 3个文件附件的限制，对于所有收件人来说都是常量，但是每当我必须仅附加1或2个文件时必须通过注释禁用，例如在下面的代码中我已禁用第2和第3个附加列以附加1个文件。是否有任何方法宏将根据输入的值自动获取输入并留空，例如，如果一个收件人有1个附件，下一个收件人有2或3个附件

$query = Order::find()
          ->joinWith(['orderDeliveryData'])
          ->andWhere([OrderDeliveryData::tablename().'.order_delivery_data_courierId' => "51"])
    ->andWhere(['order_status' => ("send")]);

Answer 1

Dim i As Long, c As Range
'....
With objMail
    .To = cell.Value
    .Cc = cell.Offset(0, 1).Value
    .Bcc = cell.Offset(0, 2).Value
    .Subject = cell.Offset(0, 3).Value
    .Body = cell.Offset(0, 4).Value
    For i = 5 to 6
        Set c = cell.Offset(0, i)
        If c.Value <> "" Then .Attachments.Add c.Value
    Next i
    .Send
End With
'....

通过vba宏添加附件的邮件

1 个答案: