This is what I have with the name address modifications I mentioned:
------------------
; Rev 4/1/04
; Added serious signature quote and rearranged default signature
; Rev 3/25/04 - Initial Release
@SignatureMain
; Define one local variable for each part of the signature, and then
fill it with it's part
Local Name
Name = "Ray Ramirez DVM | Maroa, IL | Locum Tenens since 1989
ICQ# 2333123\r\n"
; Put the variable together with the quote-makers and put it in the
clipboard
Clip.set(Name ++ [EMAIL PROTECTED] ++ "\r\n" ++ "Funstuff: "
++ [EMAIL PROTECTED])
; and paste it into wherever you're writing
Clip.Paste
Quit
@SignatureVariable
; Define one local variable for each part of the signature, and then
fill it with it's part
Local Name
Name = "David Troesch\r\n"
Local Work
Work = "A+ Certified Service Professional\r\nMCSA - Microsoft
Certified System Administrator\r\nMCSE - Microsoft Certified System
Engineer\r\nIT Consultant / Sys Admin / Networking\r\n"
Local IM
IM = "ICQ# 2333123\r\nMSN: [EMAIL PROTECTED]:
datconsulting\r\nAIM: silversword\r\n"
Local AddressPhone
AddressPhone = "My Address\r\nPhone: Phone#\r\nCell: Cell#\r\n"
Local Signature
;Cleaning Signature variable, but I think this is redundant since it's a
local variable
Signature = ""
; Select what is in the Signature by default
Local Name1 = 1
Local Work1 = 0
Local IM1 = 0
Local AddressPhone1 = 0
Local Quote1 = 1
;Display the prompt to be able to add/remove parts of the signature with
your alt-key combos
Inputdialog ("Name1=&Name??, Work1=&Work Signature??, IM1=&IM Info??,
AddressPhone1=&Address and Phone Number??", "Choose Signature Parts")
; Build the signature from what was selected
If (Name1 eq 1)
Signature = Name
If (Work1 eq 1)
Signature = (Signature ++ Work)
;note we don't want a quote with official E-mail's so remove the quote
Quote1 = 0
If (IM1 eq 1)
Signature = (Signature ++ IM)
If (AddressPhone1 eq 1)
Signature = (Signature ++ AddressPhone)
If (Quote1 eq 1)
Signature = (Signature ++ [EMAIL PROTECTED])
Clip.set(Signature)
Clip.Paste
Quit
@SeriousQuote
; Thanks to Alex Peters for this script
Local LastQuoteIndexFileLocation = PProFolder ++ "LastQuoteSIndex.txt"
Local Quotes = ReplaceChars(ReplaceChars(File.ReadAll(PProFolder ++
"EmailQuotesSerious.txt"), "\r\n", "\n"), "\r", "\n")
Local NextQuoteLoc = 1
If(ValidPath(LastQuoteIndexFileLocation)) Do
NextQuoteLoc = (File.ReadAll(LastQuoteIndexFileLocation) %
(Length(Quotes) - Length(ReplaceChars(Quotes, "\n", "")) +
IfElse(Select(Quotes, -1) == "\n", 0, 1))) + 1
File.DeleteNoRecycle(LastQuoteIndexFileLocation)
EndIf
File.WriteAll(LastQuoteIndexFileLocation, NextQuoteLoc)
; Quotes = Quotes ++ "\r\n"
Quit(ReplaceChars(Line(Quotes, NextQuoteLoc), "|", "\r\n"))
@Quote
; Thanks to Alex Peters for this script
Local LastQuoteIndexFileLocation = PProFolder ++ "LastQuoteIndex.txt"
Local Quotes = ReplaceChars(ReplaceChars(File.ReadAll(PProFolder ++
"EmailQuotes.txt"), "\r\n", "\n"), "\r", "\n")
Local NextQuoteLoc = 1
If(ValidPath(LastQuoteIndexFileLocation)) Do
NextQuoteLoc = (File.ReadAll(LastQuoteIndexFileLocation) %
(Length(Quotes) - Length(ReplaceChars(Quotes, "\n", "")) +
IfElse(Select(Quotes, -1) == "\n", 0, 1))) + 1
File.DeleteNoRecycle(LastQuoteIndexFileLocation)
EndIf
File.WriteAll(LastQuoteIndexFileLocation, NextQuoteLoc)
Quit(ReplaceChars(Line(Quotes, NextQuoteLoc), "|", "\r\n"))
--------
And this is what I get when I have powerpro on the
config>mouse/keys>'Ctrl+Sh+z runs this file.
Ray Ramirez DVM | Maroa, IL | Locum Tenens since 1989 ICQ#
2333123\r\n\r\nFunstuff:
And I still see the message.
Maybe my questions should be:
What files should I have? I have a lastquiteindex.txt, and an
emailquotes.txt and emailquoteserious.txt
I don't know if I have a path designated somewhere, do I need to do
that? I have resaved the file once the changes are made. Hmm
Thanks in advance
Take Care, Ray Ramirez DVM
"None of us is as smart as all of us" Abraham Lincoln
Ray Ramirez wrote on 4/25/2006, 11:41 AM:
> Hello all,
> David Troesch was kind enough to share a signature file of his with us
> (and he said it was not beginner, but I posted originally here, so I
> thought others might be following). Is it appropriate to also post
> (cross-post?) this in the regular powerpro list?
>
> I am starting out just modifying the script to see if I can change the
> name to mine, and the file to where I would have a quote file. I got
> the name change part ok, but I can't seem to get the file change
> correct. I changed the path, which was originally set as :
>
> PProFolder ++ "messages\\EmailQuotesSerious.txt"
>
> And I changed it to:
>
> PProFolder ++ "EmailQuotes.txt"
>
> But when I run the file from a hotkey (Config>Key/Mouse>path\filename )
> I get an error that reads:
> Can't find file messages\\EmailQuotesSerious.txt cancel script or
> continue to run.
>
> Below is the total script as I modified it. An Input dialog box does
> not show up either. Hmm.
>
> Thanks
>
> Ray Ramirez DVM
> Never be afraid to try something new.
> Remember, amateurs built the ark. Professionals built the Titanic.
>
Attention: PowerPro's Web site has moved: http://www.ppro.org
YAHOO! GROUPS LINKS
- Visit your group "power-pro" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
