รบกวนผู้รู้ช่วยตอบเรื่อง send mail แบบมีการแนบไฟล์ด้วยค่ะ จะต้องเขียนยังไงคะ

Dim myMail 
Set myMail=CreateObject("CDO.Message")
myMail.BodyPart.Charset = "windows-874"
myMail.Subject="Sending email with CDO"
myMail.From="[email protected]"
myMail.To="[email protected]"
myMail.TextBody="This is a message"

myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver")="SMTP"
'Server port
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25 
myMail.Configuration.Fields.Update

myMail.Send

set myMail=Nothing