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.