vb呼叫**：
private declare function sendmail lib "**aildll.dll" _(byref mi as mailinfo) as integer
private type mailinfo str**tpaddr as string ' **tp伺服器位址 strport as string '**tp埠 straccount as string ' 帳號 strpassword as string '密碼 strsendfrom as string ' 傳送源位址 strsendto as string ' 目地位址 strsendername as string ' 傳送者姓名 strreceivername as string ' 接收者姓名 strsubject as string ' 郵件主題 strcontent as string ' 郵件正文 stradjunct as string '附件列表 多個附件以","隔開 ishtml as integer '是否以html傳送end type
private sub command1_click() dim mi as mailinfo
mi.str**tpaddr = t1.text ' **tp伺服器位址 mi.strport = t2.text '**tp埠 mi.straccount = t3.text ' 帳號 mi.strpassword = t4.text '密碼 mi.strsendfrom = t6.text ' 傳送源位址 mi.strsendto = t8.text ' 目地位址 mi.strsendername = t5.text ' 傳送者姓名 mi.strreceivername = t7.text ' 接收者姓名 mi.strsubject = t9.text ' 郵件主題 mi.strcontent = t11.text ' 郵件正文 if t10.text = "" then mi.stradjunct = "" else mi.stradjunct = t10.text '附件列表 多個附件以","隔開 end if mi.ishtml = 1 '是否以html傳送end with'mi.straccount = "123456" 'msgbox mi.stradjunct 'exit sub'dim isend as integer'isend = sendmail(mi)if sendmail(mi) = 1 thenmsgbox "傳送成功"end ifend sub
乙個封裝了localStorage的增刪改查的方法
localstorage的增刪改查都其實比較簡單，每次需要判斷瀏覽器是否禁用，這挺麻煩的 而且沒有像cookie一樣的，自動過期時間，長期下去會有垃圾資料在裡面 我們知道android的系統只支援5m儲存空間，iphone是10mb，一旦超過限制會提示使用者，甚至報錯。一 包含一下功能 1 定時清理...
想實現乙個發郵件的功能
今天想做乙個發郵件的功能，找了很多資料，也沒有實現 我做的是向這個頁面傳送請求，將請求的頁面內容做為郵件內容 發郵件的細節我就不班門弄斧了 問題出現了，就是本頁面的鏈結的位址不是協議位址 如而是的相對目錄位址 比如 images a.jpeg 這樣就導制使用者檢視郵件內容時，裡面的均無法顯示出來，我...
單鏈表 封裝了乙個類 2
對單鏈表的相關介紹在這裡。單鏈表 封裝了乙個類 1 中實現了一種類的封裝，不過其中結點的插入仍然在鍊錶頭部進行，所以tail指標除了帶來一些小麻煩外，形同虛設。在此，將tail指標利用起來，讓每乙個結點都從鍊錶的尾部插入，因為一開始，讓tail與head都指向了頭結點，所以不用考慮插入的結點是否是整...