[ Blue82 @ 04.04.2019. 07:49 ] @
Potrebna mi je pomoc u vezi ovog koda. Code: Sub SimpleMailTo (email as string,iznos as double,poruka as string) poruka="Poštovani" & chr(13) & "U prilogu maila..." Dim launcher as object Dim eAddress, eSubject, eBody, CCeAddr, BCCeAddr, aHTMLanchor as string launcher = CreateUnoService("com.sun.star.system.SystemShellExecute") eAddress = email CCeAddr = "[email protected]" BCCeAddr = "[email protected]" eSubject = "This is the Subject" ebody = poruka aHTMLanchor = "mailto:" & eAddress & "?cc=" & CCeAddr & "&subject=" & eSubject & "&body=" & ebody launcher.execute(aHTMLanchor, "", 0) End Sub Macro služi da pokrene e-mail klijent i da napiše poruku u okviru njega. Imam problem u vezi tela maila. Naime sve radi kako treba, ali u telu maila neće da mi poruku upiše u 2 reda, već sve upiše u jednom redu. Umesto: Poštovani, U prilogu maila... U mail klijentu bude ispisano: Poštovani, U prilogu maila. Dakle sve piše u jednom redu, kao da samo spajam stringove. Ne znam gde je problem ali pretpostavljam da se on javlja u poslednjem redu programa: Code: zbog aHTMLancor komande, pa da se u HTML-u novi red ne obeležava sa chr(13).launcher.execute(aHTMLanchor, "", 0) |