需要發送電子郵件附件與ASP Vbscript代碼

我想發送與傳統的ASP應用程序中的下面的代碼與attachemnet此應用程序提取郵件，從地址等郵件從數據庫。現在，當用戶瀏覽文檔然後不在任何地方存儲文檔時（即在數據庫或服務器中），我們需要將文檔作爲附件與下面的郵件代碼附加在一起.Pls建議..需要發送電子郵件附件與ASP Vbscript代碼

sql = "insert INTO RSP_SSR_ENTRY(SR_ID_NBR, SA_ID_NBR, IMO_NBR ,INSPECTION_SEQ_NBR, INSPECTION_DTM, PO_ID_NBR, OPERATIONAL_STATUS_TXT, REPORT_Q2_IND, REPORT_Q3_IND, REPORT_Q4_IND, REPORT_Q5_IND, REPORT_Q6_IND, REPORT_Q7_IND, REPORT_Q8_IND, REPORT_Q9_IND, REPORT_Q10_IND, REPORT_Q11_IND, REPORT_Q12_IND, REPORT_Q13_IND, REPORT_QA_IND, REPORT_QB_IND, SUBMITTED_DTM) VALUES(0, " & said & ", " & ssr_imo & ", " & ssr_ins_nr & ", " & ssr_ins_date & ", " & ssr_port_id & ", '" & opStat & "', '" & ssr_q2 & "', '" & ssr_q3 & "', '" & ssr_q4 & "', '" & ssr_q5 & "', '" & ssr_q6 & "', '" & ssr_q7 & "', '" & ssr_q8 & "', '" & ssr_q9 & "', '" & ssr_q10 & "', '" & ssr_q11 & "', '" & ssr_q12 & "', '" & ssr_q13 & "','" & ssr_qa & "', '" & ssr_qb & "', "&right_now&")" 

     debugNote sql 
     session("sqlInsertText") = sql 
     Set db1 = Server.CreateObject("ADODB.Connection") 
     db1.Open GV_VIEW_DB_String 

     Set rsInsert = db1.Execute(sql) 

      session("duplicateInsert_ssr") = false 
      set rsInsert = nothing 
      Set dbl = nothing 

     'lookup the name of the Ship 
     shipName = ssr_ship_name & " ("&ssr_imo&")" 

     'send an email for SSR 
     mailbody = GV_EMAIL_TOP 
     'mailbody = mailbody & "For processing on " & FormatDateTime(dateadd("d", 1, now()), 1) & "<br />" 
     mailbody = mailbody & "Date time of SSR Upload : " & Day(date()) & " " & MonthName(Month(date()), true) & " " & Year(date()) & " " & Hour(time()) & ":" & Minute(time()) & "<br />" 
     mailbody = mailbody & "Name and IMO number of Ship : " & shipName & "<br />" 
     mailbody = mailbody & "Inspection number : " & ssr_ins_nr & "<br />" 
     mailbody = mailbody & "Submitted by : " & subName & " (" & subEmail & ")<br />" 

     'mailsubject = "S.H.I.P - SSR report has been submitted " 
     mailsubject = "SSR report for " & shipName & "has been submitted " 

     ShipEmail mailbody, "SHIP Admin user", GV_SSR_MAIL_TO, "", "", mailsubject

來源

2012-08-27 CRM Guy

這是ASP .net，asp classic或vbscript？請相應地更新標籤。 – jrummell

要發送文件，它必須始終存儲（暫時）在發送郵件的服務器上！

不知道你ShipEmail功能是什麼樣子，並假設你使用CDO.Message它會是這樣的：

Set cdoMessage = CreateObject("CDO.Message") 
cdoMessage.Subject = "Some Message" 
cdoMessage.From = "[email protected]" 
cdoMessage.To = "[email protected]" 
'cdoMessage.TextBody = "This is some sample message text." 
cdoMessage.HTMLBody = "This is some sample html message text." 
'File on Server! 
cdoMessage.AddAttachment "c:\emailpickup\test.txt" 
cdoMessage.Send

如果你想使嵌入圖像看起來成AddRelatedBodyPart

來源

2012-08-28 06:30:42 stare

感謝您的建議！ –

需要發送電子郵件附件與ASP Vbscript代碼

回答

相關問題