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

I have examples of creating your own dialogues in OOME  (book) on my website. I don't remember off 
hand if I have examples in andrewmacro, which is also available there for download.

Sorry can't easily check I won't have access to my computer for another week.

I never cared for the process of creating your own dialogues, but with that, you can pretty much do 
whatever you want in terms of input. 

⁣Get BlueMail for Android ​

On Jul 24, 2022, 3:22 AM, at 3:22 AM, "Michael D. Setzer II" <msetzerii@gmail.com> wrote:
> 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

-- 
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