----- Original Message ----- From: Himawan Nurkuhasto To: itcenter@yahoogroups.com Sent: Tuesday, June 21, 2005 12:10 PM Subject: DTS Activex script kirim email dgn CDO
tolong dibantu karena saya mencoba mengirimkan email secara otomatis dengan menggunakan dts Sqlserver, tapi tidak bisa keluar gambar pada email yang diterima (hanya tulisan saja) dengan script seperti ini... Function Main() Dim strFrom Dim strTo Dim strCC Dim strSubject Dim strBody 'Strings for recipient, subject, boby Dim objMessage 'The CDO object Dim strAttachment 'First we'll read in the values entered from the form into the Local variables strFrom = DTSGlobalVariables("gv_MailFrom").Value strTo = DTSGlobalVariables("gv_MailTo").Value strCC = DTSGlobalVariables("gv_MailCC").Value strSubject = DTSGlobalVariables("gv_MailSubject").Value DTSGlobalVariables("gv_MailBody").Value = "<html><body><font color='0E3FC0'><h2>* INFOCUBE_DIM_SITE_" & DTSGlobalVariables("gv_Principal").value & " Date. " & DTSGlobalVariables("gdtDay").value & " *</h2></font></br> " & _ "<h4><font color='#009933'>Berikut kami kirimkan data dim_site_nvo per tgl. " & DTSGlobalVariables("gdtDay").value & " </font></h4></br>" &_ "<h4><font color='#FF5300'>Salam, </br>MIS Aam</font></h4></br><p></p><strong>Powered by</strong></br><strong><font color='#999999'>Info</font><font color='#000000'>st</font><font color='#FF0000'>e</font><font color='#000000'>p</font></strong></br><p><img border='0' src='d:/AAM_INFOCUBE/infostep.gif' width='480' height='386'></p></body></html>" strBody = DTSGlobalVariables("gv_MailBody").Value strAttachment = DTSGlobalVariables("gv_FileLocation").Value & "pis_dimSite_" & DTSGlobalVariables("gv_Principal").value & "_" & DTSGlobalVariables("gdtDay").value & ".zip" ' Create an instance of the NewMail object. Set objMessage = CreateObject("CDO.Message") ' Set the properties of the object ' Mime Format 0 attachment bisa di download objMessage.Subject = strSubject objMessage.From = StrFrom 'objMessage.Sender = StrFrom objMessage.To = strTo objMessage.Cc = strCC objMessage.HTMLBody = strBody objMessage.AddAttachment strAttachment '==This section provides the configuration information for the remote SMTP server. '==Normally you will only change the server name or IP. objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 'Name or IP of Remote SMTP Server objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = 'Server port (typically 25) objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = objMessage.Configuration.Fields.Update '==End remote SMTP server configuration section== objMessage.Send ' Set the object to nothing because it immediately becomes ' invalid after calling the Send method + it clears it out of the Server's Memory. Set objMessage = Nothing 'SendEmail="True" Main = DTSTaskExecResult_Success End Function tulisan yang berwarna ungu adalah massage body berupa html, masalahnya kenapa gambar tidak bisa muncul pada body email..? (yang berhuruf warna merah) The contents of this e-mail may be confidential and the unauthorized use, copying, or dissemination of it and any attachments to it, is prohibited. Internet communications are not secure and Dexa Group companies do not, therefore, accept legal responsibility for the contents of this message nor for any damage caused by viruses. The views expressed here do not necessarily represent those of Dexa Group companies. [Non-text portions of this message have been removed] -- www.ITCENTER.or.id - Komunitas Teknologi Informasi Indonesia Info, Gabung, Keluar, Mode Kirim : [EMAIL PROTECTED] ::: Hapus bagian yang tidak perlu (footer, dst) saat reply! ::: ## Jobs: itcenter.or.id/jobs ## Bursa: itcenter.or.id/bursa ## $$ Iklan/promosi : www.itcenter.or.id/sponsorship $$ Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/ITCENTER/ <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/