[ bojan_mil @ 20.02.2008. 09:20 ] @
Naime, kod je sledeci:

Dim stDocName As String

stDocName = "ConfirmationEmail"

DoCmd.SendObject acSendReport, "ConfirmationEmail", acFormatRTF, Me!email, , , "Potvrda za ispit", "Poštovani, ovim povrdujemo Vaše ucešce na ispitu. Sve informacije se nalaze u prilogu. Srdacan pozdrav,"

Naime, text koji se prikazuje u telu emaila je u jednom redu.

Potrebno je da mi ispise na sledeci nacin

Postovani,

Ovim potvrdjujemo Vase ucesce na ispitu.
Sve informacije se nalaze u prilogu.

Srdacan pozdrav.


Da li postoji nacin, na koji bih ovako mogao da formatiram text u telu emaila. Da li se mogu objekti iz forme preneti nekako u telo emaila?

Hvala
[ Getsbi @ 20.02.2008. 09:54 ] @
Nisam isprobavao u prenošenju za telo emaila ali probaj da između delova stringa umećeš: & vbCrlf &
[ bojan_mil @ 20.02.2008. 10:08 ] @
Ne radi.
[ Getsbi @ 20.02.2008. 10:16 ] @
"Postovani, " & vbCrlf & "Ovim potvrdjujemo Vase ucesce na ispitu." & vbCrlf & "Sve informacije se nalaze u prilogu."

Ako ne radi, probaj da ubaciš: & vbCr & vbCr &

Zaboravio sam šta tačno koji proizvodi ali je važno da ti delovi stringa budu zatvoreni u navodnike.

[ domaci_a_nas @ 20.02.2008. 10:19 ] @
Probaj da umesto VbCrLf koristiš string "%0D%0A", pošto je formatiranje nove linije drugačije u Outlooku.
[ bojan_mil @ 20.02.2008. 10:40 ] @
Ipak radi " & vbCrlf & " , ali sa obaveznim navodnicima.

Hvala...
[ Getsbi @ 20.02.2008. 10:57 ] @
Mislio sam da ćeš znati da kad prekineš tekst moraš da ga zatvoriš navodnicima tako da u prvom postu to nisam pomenuo. Posle sam predpostavio da je možda to uzrok. No sve jedno. Važno da radi.
Mada bi i ovaj Nikolin predlog trebalo isprobati pa da imamo u vidu, ako radi. Zanima me da li prolazi kompajl, pošto se ovo između tretira kao naredba.
[ domaci_a_nas @ 20.02.2008. 11:24 ] @
Ne radi, sad sam pogledao, "moj" kod radi u sledećem slučaju :

Code:


Public Declare Function ShellExecute Lib "Shell32.dll" Alias "ShellExecuteA" _
  (ByVal hwnd As Long, _
   ByVal lpOperation As String, _
   ByVal lpFile As String, _
   ByVal lpParameters As String, _
   ByVal lpDirectory As String, _
   ByVal nShowCmd As Long) As Long

Private Sub SendMail()
ShellExecute 0, "open", "mailto:[email protected][email protected]&subject=Proba&body=Ovde bi trebalo nesto%0D%0A napisati kao telo poruke", vbNullString, vbNullString, SW_SHOWNORMAL
End Sub

[ bojan_mil @ 20.02.2008. 11:50 ] @
"Getsbijev" -u komandu sam uneo na sledeci nacin:

DoCmd.SendObject acSendReport, "ConfirmationEmail", acFormatRTF, Me!email, , , "Potvrda za ispit", "Poštovani," & vbCrLf & "" & vbCrLf & "Ovim potvrdujemo Vaše ucešce na ispitu." & vbCrLf & "Sve informacije se nalaze u prilogu." & vbCrLf & "Srdacan pozdrav," & vbCrLf & "" & vbCrLf & "Administracija fakulteta"

I sve radi kako treba...


I u ovom slucaju radi ." & vbCrLf & "

Application.FollowHyperlink "mailto:" &Me!email, , , tekst....

[ domaci_a_nas @ 20.02.2008. 11:54 ] @
Ono "Ne radi" se odnosilo na Getsbijevo pitanje da li kod koji sam ja (Nikola) postavio, sa njegovim je sve u redu, pali svaki put
[ Getsbi @ 20.02.2008. 12:57 ] @
Dobro je što je Nikola dao svoj kod. Sad imamo i drugu varijantu.