크리스탈 리포트 8.5를 사용하는 Visual Basic 6.0에서 어떻게 리포트를 직접 보낼 수 있습니까?

Question

Visual Basic 6.0 및 Crystal 보고서 8.0을 사용 중입니다.

모든 메일 ID에 직접 생성 된 보고서를 어떻게 메일로 보낼 수 있습니까?

Answer 1

이것은 SMTP 용입니다. Exchange 사용에 대한 문서를 참조하십시오.

Set emailObj  = CreateObject("CDO.Message") 
emailObj.From  = "fred@gmail.com" 

emailObj.To  = "fred@gmail.com" 

emailObj.Subject = "Test CDO" 
emailObj.TextBody = "Test CDO" 

emailObj.AddAttachment "c:\windows\win.ini" 

Set emailConfig = emailObj.Configuration 

emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" 
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl")  = true 
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "fred" 
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "pass" 
emailConfig.Fields.Update 

emailObj.Send 

If err.number = 0 then Msgbox "Done"