Prikazi cijelu temu 15.03.2017 16:54
Dado Van mreze
Clan
Registrovan od:27.10.2011
Lokacija:Doboj


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):
  1. Private Sub Command41_Click()
  2. On Error GoTo Err_Command41_Click
  3.  
  4. Dim strTO As String
  5. Dim strSubject As String
  6. Dim strMessage As String
  7.  
  8.  
  9.  
  10. strTO = "Me.txtboxemail" 'ili polje strto=Me.imepolja
  11.  
  12. strSubject = "Opomena"
  13.         strMessage = "From:  " & "Posiljalac" & vbTab & vbTab & vbTab & "datum" _
  14.                     & vbCrLf & vbCrLf & "Tekst" & vbCrLf & vbCrLf & "Posiljalac: Moja firma" & vbCrLf & vbCrLf
  15.    
  16.                 DoCmd.SendObject , , acFormatTXT, strTO, , , strSubject, strMessage, True '--> Ako stavis false onda ce direkt slati
  17.  
  18.    
  19.  
  20. Exit_Command41_Click:
  21.     Exit Sub
  22.  
  23. Err_Command41_Click:
  24.     MsgBox Err.Description
  25.     Resume Exit_Command41_Click
  26.    
  27. End Sub
Pozdrav!