[libreoffice-users] Searching for info gives nothing related to what I need?

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:mikes@guam.net                            
 mailto:msetzerii@gmail.com
 Guam - Where America's Day Begins                        
 G4L Disk Imaging Project maintainer 
 http://sourceforge.net/projects/g4l/
+------------------------------------------------------------+




-- 
To unsubscribe e-mail to: users+unsubscribe@global.libreoffice.org
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