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
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:
launcher.execute(aHTMLanchor, "", 0)
zbog aHTMLancor komande, pa da se u HTML-u novi red ne obeležava sa chr(13).
launcher.execute(aHTMLanchor, "", 0)