Predmet:Re: Slanje e-maila iz Acessa
Evo.
Ako bude nejasnoca javi.
PreuzmiIzvorni kôd (Visual Basic):Private Sub cmdSend_Click()
Dim strTO As String
Dim strSubject As String
Dim strMessage As String
strTO = "zxz@icentar.ba" 'ili polje strto=Me.imepolja
strSubject = "Neki naslov"
strMessage = "From: " & "Posiljalac" & vbTab & vbTab & vbTab & "datum" _
& vbCrLf & vbCrLf & "Tekst" & vbCrLf & vbCrLf & "Posiljalac: webmaster@icentar.ba" & vbCrLf & vbCrLf
DoCmd.SendObject , , acFormatTXT, strTO, , , strSubject, strMessage, True '--> Ako stavis false onda ce direkt slati
End Sub
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.