password-reseterator.applescript

activate application "Password Generator"
tell application "System Events"
	tell process "Password Generator"
		set value of text field 1 of tab group 1 of window "Password Generator" to "7"
		select checkbox "A-Z" of tab group 1 of window "Password Generator"
		select checkbox "0-9" of tab group 1 of window "Password Generator"
		select checkbox "a-z" of tab group 1 of window "Password Generator"
		click button "Generate" of window "Password Generator"
		click button "Copy" of window "Password Generator"
		click button 1 of window "Password Generator"
	end tell
end tell

tell application "Mail"
	
	
	tell application "Mail"
		set myPass to the clipboard
		set theSender to "Michael Hall <xxx@xxx.xxx>"
		set myMailContents to "Hello," & return & return & "This is my bimonthly request for a new VPN password.  Please set the password to: " & return & return & myPass & return & return & "Thanks! " & return & return & "-Michael" & return & "503.775.3215" & return
		
		set newMessage to make new outgoing message with properties {subject:"VPN Password Request", content:myMailContents}
		tell newMessage
			set visible to true
			set sender to theSender
			make new to recipient with properties {name:"JUPM User Support", address:"xxx@xxx.xxx"}
			
			make new bcc recipient with properties {name:"Michael Hall", address:"xxx@xxx.xxx"}
			activate
			
		end tell
		send newMessage
	end tell
	
end tell