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
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(6) 人氣()