AddAttachFile 메서드

objSmtp.AddAttachFile(FilePath)

Dim Upload, Smtp, UpFile, Result
'업로드를 처리할 오브젝트를 생성합니다.
Set Upload = Server.CreateObject("TABSUpload4.Upload")
'업로드를 시작합니다.
Upload.Start "C:\TEMP"
Upload.Save "C:\TEMP", True

Set Smtp = Server.CreateObject("TABSUpload4.Smtp")

Smtp.ServerName = "mail.tabslab.com"
Smtp.ServerPort = 25
Smtp.FromAddress = "help@tabslab.com"
Smtp.AddToAddr "test@test.com", "테스트"
Smtp.Subject = "제목입니다."
Smtp.Encoding = "base64"
Smtp.Charset = "euc-kr"
Smtp.BodyText = "텍스트 본문입니다."

Set UpFile = Upload.Form("uploadFile")
If UpFile.FileSize <> 0 Then
    Smtp.AddAttachFile UpFile.SaveName
End If

Set Result = Smtp.Send()

If Result.Type = SmtpErrorSuccess Then
    Response.Write "메일이 올바르게 전달되었습니다.<p>"
Else
    Response.Write "오류 종류:" & Result.Type & "<br>"
    Response.Write "오류 코드:" & Result.Code & "<br>"
    Response.Write "오류 설명:" & Result.Description
End If