小编Chr*_*123的帖子

我有以下代码,允许我附加报告,然后将其发送给一个收件人.

如何将其发送到多个地址？

我已经尝试将地址放在一个数组中,但它给出了"类型不匹配"错误.

Dim strReportName As String
Dim oLook As Object
Dim oMail As Object
Dim olns As Outlook.Namespace
Dim strTO As String
Dim strCC As String
Dim strMessageBody As String
Dim strSubject As String

Set oLook = CreateObject("Outlook.Application")
'Set olns = oLook.GetNamespace("MAPI")
Set oMail = oLook.CreateItem(0)

'*********************** USER DEFINED SECTION ************************
strTO = "chrissparkes@me.com"
strMessageBody = "<---This is an automatically generated email. Please do not respond.---->"
strSubject = "Daily Skip"
'*********************************************************************

With oMail
.To = strTO
 .CC = strCC …

我有一个字符串,本质上是一个文件名.我们讨厌的最终用户决定他们想要在文件名中的某个地方放置我们的产品代码,如果他们愿意的话.现在,我能想到的唯一方法是在数字长度大于4的字符串中查找数字.下面是一个例子,但我不确定如何检查字符串是否包含长度为一的数字大于4或不大于.

73767 Carex Wipes Clipstrip Pack - Strawberry Laces.xlsm

我有一个具有该值的字符串/Daily".我试图传递给我的应用程序的参数是/Daily.但是在尝试了一些方法来删除引用后,似乎没有任何工作.

使用的方法

• .去掉('"');
• .更换("\"");
• .修剪('"');