Predmet:Slanje email poruke iz baze
Postavio sam na formi dugme i na On Click kod za slanje e-maila koji sam skinu sa Icentar.ba. Evo ga dole niže. Gdje sam pogriješio. Otvori mi outlok ali u polju adresa ne pojavljuje mi se e-mail adresa iz polja txt boxa "txtboxemail" .
PreuzmiIzvorni kôd (Visual Basic):Private Sub Command41_Click()
On Error GoTo Err_Command41_Click
Dim strTO As String
Dim strSubject As String
Dim strMessage As String
strTO = "Me.txtboxemail" 'ili polje strto=Me.imepolja
strSubject = "Opomena"
strMessage = "From: " & "Posiljalac" & vbTab & vbTab & vbTab & "datum" _
& vbCrLf & vbCrLf & "Tekst" & vbCrLf & vbCrLf & "Posiljalac: Moja firma" & vbCrLf & vbCrLf
DoCmd.SendObject , , acFormatTXT, strTO, , , strSubject, strMessage, True '--> Ako stavis false onda ce direkt slati
Exit_Command41_Click:
Exit Sub
Err_Command41_Click:
MsgBox Err.Description
Resume Exit_Command41_Click
End Sub
Pozdrav!