Dim objNewMail As CDONTS.NewMail
With objNewMail
.From = txtFrom.Text
.To = txtTo.Text
.Cc = txtCC.Text
.Subject = txtSubject.Text
.Body = txtMessage.Text
.AttachFile txtAttachment.Text
.Send
End With
With objNewMail
.From = txtFrom.Text
.To = txtTo.Text
.Cc = txtCC.Text
.Subject = txtSubject.Text
.Body = txtMessage.Text
.AttachFile txtAttachment.Text
.Send
End With
全站熱搜
留言列表