Have gotten this macro to do what I want, but the process requires two
inputbox commands. Was trying to find a way to have a single dialog rather
than two. All the searches come up with thing not even closely related to what
I
am looking for. Many are linked to Calc or Base or have super complex step.
Want a single form or whatever to enter the to: info and subject: info.
Have tried dozens of search terms but not finding an example.
Sub Mailto
Dim oDoc As Object
Dim Path$, sendto$,subject$,cmd$
oDoc = ThisComponent
Path$ = oDoc.getURL()
sendto$ = InputBox ("To:")
subject$ = InputBox("Subject:")
If oDoc.HasLocation() Then
subject$=replace(subject$," ","%20")
cmd$="/home/msetzerii/.wine/drive_c/PMAIL/Programs/WSENDTO.EXE "
&mid(Path$,8,100) &" "&"
mailto:"&sendto$&chr$(63)&"subject="&subject$&"&body=SENDING%20"&
mid(Path$,8,100)
shell(cmd$)
Else
Print "The document has not yet been stored"
End If
End Sub
+------------------------------------------------------------+
Michael D. Setzer II - Computer Science Instructor (Retired)
mailto:[email protected]
mailto:[email protected]
Guam - Where America's Day Begins
G4L Disk Imaging Project maintainer
http://sourceforge.net/projects/g4l/
+------------------------------------------------------------+
--
To unsubscribe e-mail to: [email protected]
Problems? https://www.libreoffice.org/get-help/mailing-lists/how-to-unsubscribe/
Posting guidelines + more: https://wiki.documentfoundation.org/Netiquette
List archive: https://listarchives.libreoffice.org/global/users/
Privacy Policy: https://www.documentfoundation.org/privacy
