'Option Explicit
On Error Resume Next

'==========================================================================
' Local Variables
'==========================================================================

	Dim username, fullName, phone, hasVcard

	if MsgBox("Proceeding will overwrite any Outlook signature with the name of 'Innovative Concepts'" & Chr(13) & "Do you wish to continue?", 36, "Innovative Concepts Signature Creator") <> 6 Then
		WScript.Echo "Operation Cancelled"
		WScript.Quit
	end if

	username = inputBox("Question 1 of 4" & Chr(13) & "Enter Your username (example: lrollins)", "Innovative Concepts Signature Creator")
	if username = "" Then
		WScript.Echo "Operation Cancelled"
		WScript.Quit
	End If
	fullname = inputBox("Question 2 of 4" & Chr(13) & "Enter Your Full Name (example: Lonny W. Rollins)", "Innovative Concepts Signature Creator")
	if fullname = "" Then
		WScript.Echo "Operation Cancelled"
		WScript.Quit
	End If
	phone = inputBox("Question 3 of 4" & Chr(13) & "Enter Your Extension (example: 800)", "Innovative Concepts Signature Creator")
	if phone = "" Then
		WScript.Echo "Operation Cancelled"
		WScript.Quit
	End If
	hasVcard = MsgBox("Question 4 of 4" & Chr(13) & "Do you have a profile at http://www.in-con.com/employee/" & username & "?", 36, "Innovative Concepts Signature Creator")

	phone = "805-545-9562 x" & phone
	
'==========================================================================
' Get Signature Folder
'==========================================================================
   Dim objShell
   Set objShell = CreateObject("WScript.Shell")
   strSigFolder = ObjShell.ExpandEnvironmentStrings("%appdata%") & "\Microsoft\Signatures\"
   Set objShell = Nothing

   Dim objFSO, objFile
   Set objFSO   = CreateObject("Scripting.FileSystemObject")

   If Not (objFSO.FolderExists(strSigFolder)) Then
      Call objFSO.CreateFolder(strSigFolder)
   End If

'==========================================================================
' Create HTM File
'==========================================================================
'chr(47) = /

   Err.Clear
   Set objFile = objFSO.CreateTextFile(strSigFolder & "Innovative Concepts.htm", true, False)
   If Err.Number = 0 Then
	  objFile.Write fullname & "<BR>" &vbCrLf
   	  objFile.Write phone & "<BR>" &vbCrLf
   	  objFile.Write "<B>Innovative Concepts, Inc.<" & Chr(47) & "B><BR>" &vbCrLf
   	  
   	  if hasVcard = 6 Then
   		  objFile.Write "<a href='http:" & Chr(47) & Chr(47) & "www.in-con.com" & Chr(47) & "employee" & Chr(47) & username & "'><span style='text-decoration:none;text-underline:none'>vCard<" & Chr(47) & "span><" & Chr(47) & "a> | "  &vbCrLf
   	  End if
   	  objFile.Write "<a href='http:" & Chr(47) & Chr(47) & "www.in-con.com'><span style='text-decoration:none;text-underline:none'>Website<" & Chr(47) & "span><" & Chr(47) & "a> | "  &vbCrLf
   	  objFile.Write "<a href='http:" & Chr(47) & Chr(47) & "blog.in-con.com'><span style='text-decoration:none;text-underline:none'>Blog<" & Chr(47) & "span><" & Chr(47) & "a> | "  &vbCrLf
   	  objFile.Write "<a href='http:" & Chr(47) & Chr(47) & "www.facebook.com" & Chr(47) & "InnovativeConcepts.inc'><span style='text-decoration:none;text-underline:none'>Facebook<" & Chr(47) & "span><" & Chr(47) & "a> | "  &vbCrLf
   	  objFile.Write "<a href='http:" & Chr(47) & Chr(47) & "www.linkedin.com" & Chr(47) & "company" & Chr(47) & "innovative-concepts-inc-'><span style='text-decoration:none;text-underline:none'>LinkedIn<" & Chr(47) & "span><" & Chr(47) & "a> "  &vbCrLf
      
   	  objFile.Write "<BR><FONT COLOR=#B0B0B0 SIZE=-2> This e-mail and any files transmitted with it are confidential and intended solely for the use of the individual or entity to whom they are addressed. " &vbCrLf
   	  objFile.Write "If you have received this e-mail in error please notify the sender immediately and delete this e-mail from your system. " &vbCrLf
   	  objFile.Write "If you are not the intended recipient you are notified that disclosing, copying, distributing or taking any action in reliance on the contents of this information is strictly prohibited." &vbCrLf
   	  objFile.Write "Innovative Concepts, Inc. 3440 Roberto Court, San Luis Obispo, Ca  93401<BR>" &vbCrLf
   	  objFile.Write "<" & Chr(47) & "FONT>" &vbCrLf

   	  objFile.Write "<BR><FONT COLOR=RED> Remove This and everything below here: <BR>" &vbCrLf
   	  objFile.Write "You must choose 'Innovative Concepts' for new messages and replies/forwards in the two pull down boxes found in the upper right hand corner<BR>" &vbCrLf
   	  objFile.Write "You may have to choose your email account (found driectly above the others) if it is not already selected<BR>" &vbCrLf
   	  objFile.Write "If you re-download this again in the future, you must remove this message again<BR>" &vbCrLf
   	  objFile.Write "<" & Chr(47) & "FONT>" &vbCrLf
   	  objFile.close
   End If

'==========================================================================
' Tidy-up
'==========================================================================
   set objFile = Nothing
   set objFSO  = Nothing

'==========================================================================
' Tell the user what to do next
'==========================================================================

   Dim message
   message = "Signature successfully downloaded, now you must tell outlook to use it" & Chr(13)& Chr(13)
   message = message & "Open Outlook 2010" & Chr(13)
   message = message & "Go to the 'File' menu and choose 'options'" & Chr(13)
   message = message & "Choose 'mail' then hit the 'Signatures' button" & Chr(13)
   message = message & "Choose 'Innovative Concepts' from the 'Select Signatures To Edit' pane" & Chr(13)
   message = message & "Choose 'Innovative Concepts' from the 'New Messages' pull down" & Chr(13)
   message = message & "Choose 'Innovative Concepts' from the 'Replies/Forwards' pull down" & Chr(13)
   message = message & "Edit the signature by removing all of the RED text" & Chr(13)
   message = message & "Click 'OK' twice" & Chr(13)
   message = message & "Test by attempting to send an email" & Chr(13) & Chr(13)
   message = message & "(You may leave this window open while you do this)" & Chr(13)
   MsgBox message, 64, "Innovative Concepts Signature Creator"