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

2022-07-24 Thread Andrew Pitonyak
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" 
 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 " 
>(Path$,8,100) &" "&" 
>mailto:"$$(63)&"subject="$&"=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:mi...@guam.net
> mailto:msetze...@gmail.com
> Guam - Where America's Day Begins
> G4L Disk Imaging Project maintainer 
> http://sourceforge.net/projects/g4l/
>++
>
>
>
>
>-- 
>To unsubscribe e-mail to: users+unsubscr...@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+unsubscr...@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


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

2022-07-24 Thread Michael D. Setzer II
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 " 
(Path$,8,100) &" "&" 
mailto:"$$(63)&"subject="$&"=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:mi...@guam.net
 mailto:msetze...@gmail.com
 Guam - Where America's Day Begins
 G4L Disk Imaging Project maintainer 
 http://sourceforge.net/projects/g4l/
++




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