VFP 愛用者社區

[Batman]

有沒有人在foxpro用jmail?,我用foxpro以spt連ms Sql的procedure->sp_send_mail(jmail的原來procedure程式),但卻

發不出e-mail,但在SQL Query測試時卻沒問題.可以發出e-mail.
在Foxpro已測試了其他procedure,連線及結果都沒問題
在MS SQL 的sql profiler看亦沒問題,在profiler剪貼下來在SQL Query執行亦沒問題,唯獨用foxpro call

sp_send_mail procedure便發不出去.
不知有沒有人遇過這問題及如何解決???謝覆.

Foxpro SPT

=SqlExec(ConnectID,"Execute sp_send_mail 'contact@hotmail.com','如何發E-mail','在procedure下發不出?'")

Ms SQL procedure
********************
CREATE Procedure dbo.sp_send_mail @recipient varchar(255), @subject varchar(255),@mailbody text
As

declare @object int,
@hr int,
@rc int,
@output varchar(400),
@description varchar (400),
@source varchar(400)

exec @hr = sp_OACreate 'jmail.smtpmail', @object OUT
exec @hr = sp_OASetProperty @object, 'Sender', 'contact@Yahoo.com'
exec @hr = sp_OASetProperty @object, 'SenderName', 'Batman'
exec @hr = sp_OASetProperty @object, 'ServerAddress', 'smtp.Fox.net'
exec @hr = sp_OAMethod @object, 'AddRecipient', NULL , @recipient
exec @hr = sp_OASetProperty @object, 'Subject', @subject
exec @hr = sp_OASetProperty @object, 'ContentType','text/html'
exec @hr = sp_OASetProperty @object, 'Body', @mailbody

exec @hr = sp_OAMethod @object, 'execute', NULL

exec @hr = sp_OAGetErrorInfo @object, @source OUT, @description OUT

if @hr = 0
begin
select @output = ' Source: ' + @source
print @output
select @output = ' Description: ' + @description
print @output
end
else
begin
print ' sp_OAGetErrorInfo failed.'
return
end

exec @hr = sp_OADestroy @object
GO
*****************

[ERIC]

來看這邊有飯粒喔

http://www.imasters.com.br/artigo/2323/visual_foxpro/enviando_emails_no_vfp_com_o_componente_jmail/