Her er en stored procedure til at sende mail via CDONTS.
Du skal have SMTP server kørende, for at få dette til at virke.
Kaldes : exec SPSendMail "fra@mail.dk", "til@mail.dk", "Dette er subject", "Dette er body"
**************************************
CREATE PROCEDURE cnSendMail @fromperson varchar(255), @toperson varchar(255), @subject varchar(255), @body varchar(1024) AS
DECLARE @object int
DECLARE @hr int
print "Sender mail"
EXEC @hr = sp_OACreate 'CDONTS.Newmail', @object OUT
IF @hr <> 0
BEGIN
print "FEJL : Kunne ikke starte CDONTS"
RETURN
END
EXEC @hr = sp_OAMethod @object, 'send',NULL, @fromperson, @toperson, @subject, @body
IF @hr <> 0
BEGIN
print "FEJL : Kunne ikke sende mail."
RETURN
END
EXEC @hr = sp_OADestroy @object
if @hr <> 0
Begin
print "FEJL : Kunne ikke destruere CDONTS."
RETURN
end
|