複数の添付ファイルで問題が発生しているCDOSys

Question

従来のASPで電子メールを送信するのにCDOSysオブジェクトを使用していましたが、単一ファイル添付ではうまく動作しますが、複数の添付ファイルでは正しく動作しません。最後の添付ファイルの名前とファイル拡張子すべてattachments.Pleaseはissue.Belowがここにループ内（インデックス== 1）私のコードあなたが同じ添付ファイルを扱う

Function Send_Email_WithAttachments(strFrom,strTo,strSubject,strBody,strCC,strBCC,arrFiles,arrText) 
Dim mailObj,I 
Set mailObj=CreateObject("CDO.Message") 
With mailObj 
.Subject=strSubject 
.From=strFrom 
.To=strTo 
If isValidEmail(strCC) = True Then 
.CC = strCC 
End If 
If isValidEmail(strBCC) = True Then 
.BCc = strBCC 
End If 
.HTMLBody = strBody 
If IsArray(arrFiles) = True Then 
For I=0 To UBound(arrFiles) 
.AddAttachment arrFiles(I) 
With mailObj.Attachments(1).Fields 
.Item(cdoContentDisposition) = "attachment;filename="&arrText(I) 
.Update 
End With 
Next 
End If 
.Send 
End With 
Set mailObj=Nothing 
End Function 


Thanks, Ravi 

Answer 1

でいる場合は私に知らせ：

With mailObj.Attachments(1).Fields 

はそれがあるべきです。

With mailObj.Attachments(I).Fields