根据字符串中的分隔路径将项目附加到电子邮件

Question

我想将两个文件附加到Outlook电子邮件中。

我正在尝试使用InStr。

My For循环统计Excel单元格中列出的文件，并尝试附加由;分隔的文件

If Range(ColumnNumberToLetter(indexfiles) & ref_row).Value <> "" Then
file_name = Sheets("Emails Management").Range(ColumnNumberToLetter(indexfiles) & ref_row).Value

file_count = Len(file_name) - Len(Replace(file_name, ";", "")) + 1
For Count = 1 To file_count
file_search = InStr(1, file_name, ";")
If file_search = 0 Then
attach_name = RTrim(LTrim(file_name))
Else
attach_name = RTrim(LTrim(Left(file_name, file_search - 1)))
End If
.attachments.Add attach_name
Next Count

End If

我的手机里有：

="\stackoverflow "&Regular!E1&" -ByBusiness.pdf ; \stackoverflow "&Regular!E1&" -ByRegion.pdf"

我的结果是附上"；ByBusiness"；pdf到我的电子邮件两次。

有没有更好的方法来连接多个附件？

Answer 1

试试这个。

pdfArray = Split("tes;tesds;astadsf;asdg", ";")
For Count = 0 To UBound(pdfArray)
.attachments.Add pdfArray(Count)
Next Count