여러 첨부 파일과 관련된 문제가있는 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