function sendmailmemo(sendto as variant, _
subject as string, _
body as string, _
linkto as notesdocument) as integer
on error goto errorhandler
dim maildb as new notesdatabase("", "")
dim maildoc as notesdocument
dim rtitem as notesrichtextitem
call maildb.openmail
if (maildb.isopen = true) then
'call maildb.open("", "")
set maildoc = maildb.createdocument
maildoc.form = "memo"
maildoc.sendto = sendto
' maildoc.cc = cc
' maildoc.bcc = bcc
'subject顯示在郵件接收的提示中
maildoc.subject = subject
set rtitem = maildoc.createrichtextitem("body")
'body內容顯示在郵件鏈結的上方
if not(linkto is nothing) then
call rtitem.addnewline(2)
'此處顯示在狀態列中
end if
call maildoc.send(false)
sendmailmemo = true
exit function
end if
errorhandler:
print "error " & str$(err) & ": " & error$
messagebox"請注意,有錯誤發生,郵件可能沒有傳送,請**確認!"
resume theend
theend:
sendmailmemo = false
end function
perl傳送郵件指令碼
usr bin perl usenet smtp usemime base64 自動簽到指令碼 host 10.182.131.153 smtp伺服器位址 host smtp伺服器 auth 郵件賬戶 password 郵件賬戶密碼 to 要傳送的目標 mail body 郵件內容 subsend ...
Python 指令碼傳送郵件
使用python完成郵件自動傳送 usr bin python coding utf 8 import smtplib from email.header import header from email.mime.text import mimetext class email sender ob...
python郵件傳送指令碼
複製 usr bin python coding utf 8 author dengyike date 2010 09 28 version 1.0 description auto sending email with attachment file import email import mim...