|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Internet)
|
|
 |
Título da Dica: Enviar Email via servidor SQL
|
 |
|
|
|
Postada em 28/9/2001 por WilthonCarvalho
wbatista@spcb.com.br
Public Function EnviaEmail(ByVal Destino As String, ByVal Assunto As String, _
ByVal Mensagem As String, _
Optional Arquivo) As Boolean
On Error Resume Next
sql = ""
sql = "CREATE TABLE ##tmpEMail (c1 Text)" & vbCrLf
sql = sql & "INSERT ##tmpEMail values ('" & Mensagem & "')" & vbCrLf
sql = sql & "EXEC Master..xp_sendmail '" & Destino & "',@Subject = '" & _
Assunto & "', @Query = 'SELECT c1 FROM ##tmpEMail' , " & _
IIf(Not IsMissing(Arquivo), " @attachments = '" & _
IIf(Not IsMissing(Arquivo), Arquivo, "") & "', ", "") & " @no_header = 'TRUE', @width = 50000" & vbCrLf
sql = sql & "DROP TABLE ##tmpEMail"
Err.Clear
CN.Execute sql, adExecuteNoRecords
If Err.Number <> 0 Then
Err.Clear
EnviaEmail = False
Else
EnviaEmail = True
End If
End Function
|
|
|
|
|
