From 0bfbf9bdf8adaed4cc9534aca60124d0afa2bc7d Mon Sep 17 00:00:00 2001 From: doncanton Date: Fri, 30 Jul 2021 15:11:23 -0700 Subject: [PATCH] Add project files. --- CreateSignature.sln | 25 ++ CreateSignature/AboutBox1.Designer.vb | 61 ++++ CreateSignature/AboutBox1.resx | 120 +++++++ CreateSignature/AboutBox1.vb | 33 ++ CreateSignature/CreateSignature.vbproj | 127 +++++++ CreateSignature/Form1.Designer.vb | 319 ++++++++++++++++++ CreateSignature/Form1.resx | 149 ++++++++ CreateSignature/Form1.vb | 181 ++++++++++ .../My Project/Application.Designer.vb | 38 +++ CreateSignature/My Project/Application.myapp | 11 + CreateSignature/My Project/AssemblyInfo.vb | 35 ++ .../My Project/Resources.Designer.vb | 63 ++++ CreateSignature/My Project/Resources.resx | 117 +++++++ .../My Project/Settings.Designer.vb | 73 ++++ CreateSignature/My Project/Settings.settings | 7 + CreateSignature/SIGNL.ICO | Bin 0 -> 1078 bytes CreateSignature/home/lysr_logo.jpg | Bin 0 -> 1199 bytes CreateSignature/home/set-sig.vbs | 57 ++++ CreateSignature/home/template.htm | 59 ++++ CreateSignature/temp.vb | 54 +++ 20 files changed, 1529 insertions(+) create mode 100644 CreateSignature.sln create mode 100644 CreateSignature/AboutBox1.Designer.vb create mode 100644 CreateSignature/AboutBox1.resx create mode 100644 CreateSignature/AboutBox1.vb create mode 100644 CreateSignature/CreateSignature.vbproj create mode 100644 CreateSignature/Form1.Designer.vb create mode 100644 CreateSignature/Form1.resx create mode 100644 CreateSignature/Form1.vb create mode 100644 CreateSignature/My Project/Application.Designer.vb create mode 100644 CreateSignature/My Project/Application.myapp create mode 100644 CreateSignature/My Project/AssemblyInfo.vb create mode 100644 CreateSignature/My Project/Resources.Designer.vb create mode 100644 CreateSignature/My Project/Resources.resx create mode 100644 CreateSignature/My Project/Settings.Designer.vb create mode 100644 CreateSignature/My Project/Settings.settings create mode 100644 CreateSignature/SIGNL.ICO create mode 100644 CreateSignature/home/lysr_logo.jpg create mode 100644 CreateSignature/home/set-sig.vbs create mode 100644 CreateSignature/home/template.htm create mode 100644 CreateSignature/temp.vb diff --git a/CreateSignature.sln b/CreateSignature.sln new file mode 100644 index 0000000..5541a15 --- /dev/null +++ b/CreateSignature.sln @@ -0,0 +1,25 @@ + +Microsoft Visual Studio Solution File, Format Version 12.00 +# Visual Studio Version 16 +VisualStudioVersion = 16.0.31402.337 +MinimumVisualStudioVersion = 10.0.40219.1 +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "CreateSignature", "CreateSignature\CreateSignature.vbproj", "{E87B8DD2-CFEC-4390-9488-2C553313D552}" +EndProject +Global + GlobalSection(SolutionConfigurationPlatforms) = preSolution + Debug|Any CPU = Debug|Any CPU + Release|Any CPU = Release|Any CPU + EndGlobalSection + GlobalSection(ProjectConfigurationPlatforms) = postSolution + {E87B8DD2-CFEC-4390-9488-2C553313D552}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {E87B8DD2-CFEC-4390-9488-2C553313D552}.Debug|Any CPU.Build.0 = Debug|Any CPU + {E87B8DD2-CFEC-4390-9488-2C553313D552}.Release|Any CPU.ActiveCfg = Release|Any CPU + {E87B8DD2-CFEC-4390-9488-2C553313D552}.Release|Any CPU.Build.0 = Release|Any CPU + EndGlobalSection + GlobalSection(SolutionProperties) = preSolution + HideSolutionNode = FALSE + EndGlobalSection + GlobalSection(ExtensibilityGlobals) = postSolution + SolutionGuid = {FC8BCB00-4A75-4B86-AA18-8F6BED91C0FE} + EndGlobalSection +EndGlobal diff --git a/CreateSignature/AboutBox1.Designer.vb b/CreateSignature/AboutBox1.Designer.vb new file mode 100644 index 0000000..c330fb0 --- /dev/null +++ b/CreateSignature/AboutBox1.Designer.vb @@ -0,0 +1,61 @@ + _ +Partial Class ProgInfo + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.Label1 = New System.Windows.Forms.Label() + Me.SuspendLayout() + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Dock = System.Windows.Forms.DockStyle.Fill + Me.Label1.Font = New System.Drawing.Font("Courier New", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(9, 9) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(49, 14) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "Label1" + ' + 'ProgInfo + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.Info + Me.ClientSize = New System.Drawing.Size(609, 635) + Me.Controls.Add(Me.Label1) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "ProgInfo" + Me.Padding = New System.Windows.Forms.Padding(9) + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent + Me.Text = "Create Signature Help" + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents Label1 As System.Windows.Forms.Label + +End Class diff --git a/CreateSignature/AboutBox1.resx b/CreateSignature/AboutBox1.resx new file mode 100644 index 0000000..d58980a --- /dev/null +++ b/CreateSignature/AboutBox1.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/CreateSignature/AboutBox1.vb b/CreateSignature/AboutBox1.vb new file mode 100644 index 0000000..e27d846 --- /dev/null +++ b/CreateSignature/AboutBox1.vb @@ -0,0 +1,33 @@ +Public NotInheritable Class ProgInfo + + Private Sub AboutBox1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + Dim info As String = "" + info &= "Usage: " & vbCrLf & vbCrLf + info &= "Enter User ID, click Check." & vbCrLf & vbCrLf + info &= "The program will prefill form and preview signature based on the user's " & vbCrLf & "information in Active Directory." & vbCrLf & vbCrLf + info &= "You may edit the fields directly and click Preview to update the signature." & vbCrLf & vbCrLf + info &= "The preferred way for editing the signature is by changing the user profile in " & vbCrLf & "Active directory and clicking on Check again." & vbCrLf & vbCrLf + info &= "The fields in the form link to user's properties in Active Directory " & vbCrLf & "as follows:" & vbCrLf & vbCrLf + info &= "Form Field".PadRight(20, " ") & "Tab".PadRight(21, " ") & "Property".PadRight(60, " ") & vbCrLf + info &= "".PadRight(60, "=") & vbCrLf + info &= "Name".PadRight(20) & "General".PadRight(21, " ") & "First Name +" & vbCrLf + info &= "".PadRight(20) & "".PadRight(21, " ") & "Initials +" & vbCrLf + info &= "".PadRight(20) & "".PadRight(21, " ") & "Last Name" & vbCrLf + info &= "Title".PadRight(20) & "Organization".PadRight(21, " ") & "Title" & vbCrLf + info &= "Position".PadRight(20) & "General".PadRight(21, " ") & "Description" & vbCrLf + info &= "Direct Line".PadRight(20) & "General".PadRight(21, " ") & "Telephone Number" & vbCrLf + info &= "Cell Phone".PadRight(20) & "Telephones".PadRight(21, " ") & "Mobile" & vbCrLf + info &= "Direct Fax".PadRight(20) & "Telephones".PadRight(21, " ") & "Fax" & vbCrLf + info &= "Email Address".PadRight(20) & "General".PadRight(21, " ") & "E-mail" & vbCrLf + info &= "Office".PadRight(20) & "Profile".PadRight(21, " ") & "Home folder" & vbCrLf & vbCrLf + info &= "If a San Francisco user shows the Los Angeles information it means that his" & vbCrLf & "home directory is not in a San Fransico server. " + info &= "The information in the signature" & vbCrLf & "can be corrected by selecting the San Francisco office in the drop down box," & vbCrLf & "but his home directory should be " + info &= "moved to a San Francisco Server." & vbCrLf & vbCrLf + info &= "Click Save to create an htm file of the signature (as displayed in the screen) in:" & vbCrLf & vbCrLf + info &= "\\fpas\Apps\UserSignatures\\firmsignature.htm" & vbCrLf & vbCrLf & vbCrLf + info &= "To apply signature to a User's Outlook:" & vbCrLf & vbCrLf + info &= "1) Add user to Active Directory group ""Apply Outlook Firm Signature""" & vbCrLf & vbCrLf + info &= "2) Have the user logout and log back into the computer." & vbCrLf & vbCrLf + Me.Label1.Text = info + End Sub +End Class diff --git a/CreateSignature/CreateSignature.vbproj b/CreateSignature/CreateSignature.vbproj new file mode 100644 index 0000000..b98a0c7 --- /dev/null +++ b/CreateSignature/CreateSignature.vbproj @@ -0,0 +1,127 @@ + + + + Debug + AnyCPU + 8.0.50727 + 2.0 + {E87B8DD2-CFEC-4390-9488-2C553313D552} + WinExe + CreateSignature.My.MyApplication + CreateSignature + CreateSignature + WindowsForms + SIGNL.ICO + + + 3.5 + v4.0 + + + + + true + full + true + true + bin\Debug\ + CreateSignature.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + + + pdbonly + false + true + true + bin\Release\ + CreateSignature.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + + + + + + + + + + + + + + + + + + + + + + + AboutBox1.vb + + + Form + + + Form + + + Form1.vb + Form + + + + True + Application.myapp + + + True + True + Resources.resx + + + True + Settings.settings + True + + + + + Designer + AboutBox1.vb + + + Designer + Form1.vb + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + + + + + \ No newline at end of file diff --git a/CreateSignature/Form1.Designer.vb b/CreateSignature/Form1.Designer.vb new file mode 100644 index 0000000..ebcdae7 --- /dev/null +++ b/CreateSignature/Form1.Designer.vb @@ -0,0 +1,319 @@ + _ +Partial Class Form1 + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1)) + Me.Label1 = New System.Windows.Forms.Label + Me.txtName = New System.Windows.Forms.TextBox + Me.Label2 = New System.Windows.Forms.Label + Me.txtDirPhone = New System.Windows.Forms.TextBox + Me.Label3 = New System.Windows.Forms.Label + Me.txtEmail = New System.Windows.Forms.TextBox + Me.WebBrowser1 = New System.Windows.Forms.WebBrowser + Me.btnPreview = New System.Windows.Forms.Button + Me.Label4 = New System.Windows.Forms.Label + Me.txtUserID = New System.Windows.Forms.TextBox + Me.btnCheck = New System.Windows.Forms.Button + Me.btnSave = New System.Windows.Forms.Button + Me.Label5 = New System.Windows.Forms.Label + Me.txtTitle = New System.Windows.Forms.TextBox + Me.Label6 = New System.Windows.Forms.Label + Me.txtCell = New System.Windows.Forms.TextBox + Me.txtDirectFax = New System.Windows.Forms.TextBox + Me.Label7 = New System.Windows.Forms.Label + Me.MenuStrip1 = New System.Windows.Forms.MenuStrip + Me.HelpToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem + Me.boxOffice = New System.Windows.Forms.ComboBox + Me.Label8 = New System.Windows.Forms.Label + Me.Label9 = New System.Windows.Forms.Label + Me.txtPosition = New System.Windows.Forms.TextBox + Me.MenuStrip1.SuspendLayout() + Me.SuspendLayout() + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(12, 73) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(38, 13) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "Name:" + ' + 'txtName + ' + Me.txtName.Location = New System.Drawing.Point(12, 89) + Me.txtName.Name = "txtName" + Me.txtName.Size = New System.Drawing.Size(289, 20) + Me.txtName.TabIndex = 3 + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(318, 151) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(61, 13) + Me.Label2.TabIndex = 2 + Me.Label2.Text = "Direct Line:" + ' + 'txtDirPhone + ' + Me.txtDirPhone.Location = New System.Drawing.Point(321, 167) + Me.txtDirPhone.Name = "txtDirPhone" + Me.txtDirPhone.Size = New System.Drawing.Size(100, 20) + Me.txtDirPhone.TabIndex = 5 + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(12, 151) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(72, 13) + Me.Label3.TabIndex = 4 + Me.Label3.Text = "Email address" + ' + 'txtEmail + ' + Me.txtEmail.Location = New System.Drawing.Point(12, 167) + Me.txtEmail.Name = "txtEmail" + Me.txtEmail.Size = New System.Drawing.Size(289, 20) + Me.txtEmail.TabIndex = 8 + ' + 'WebBrowser1 + ' + Me.WebBrowser1.Dock = System.Windows.Forms.DockStyle.Bottom + Me.WebBrowser1.Location = New System.Drawing.Point(0, 222) + Me.WebBrowser1.MinimumSize = New System.Drawing.Size(20, 20) + Me.WebBrowser1.Name = "WebBrowser1" + Me.WebBrowser1.ScrollBarsEnabled = False + Me.WebBrowser1.Size = New System.Drawing.Size(769, 433) + Me.WebBrowser1.TabIndex = 6 + ' + 'btnPreview + ' + Me.btnPreview.Location = New System.Drawing.Point(12, 193) + Me.btnPreview.Name = "btnPreview" + Me.btnPreview.Size = New System.Drawing.Size(75, 23) + Me.btnPreview.TabIndex = 9 + Me.btnPreview.Text = "Pre&view" + Me.btnPreview.UseVisualStyleBackColor = True + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(12, 34) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(46, 13) + Me.Label4.TabIndex = 8 + Me.Label4.Text = "User ID:" + ' + 'txtUserID + ' + Me.txtUserID.Location = New System.Drawing.Point(12, 50) + Me.txtUserID.Name = "txtUserID" + Me.txtUserID.Size = New System.Drawing.Size(167, 20) + Me.txtUserID.TabIndex = 1 + ' + 'btnCheck + ' + Me.btnCheck.Location = New System.Drawing.Point(189, 48) + Me.btnCheck.Name = "btnCheck" + Me.btnCheck.Size = New System.Drawing.Size(75, 23) + Me.btnCheck.TabIndex = 2 + Me.btnCheck.Text = "&Check" + Me.btnCheck.UseVisualStyleBackColor = True + ' + 'btnSave + ' + Me.btnSave.Location = New System.Drawing.Point(107, 193) + Me.btnSave.Name = "btnSave" + Me.btnSave.Size = New System.Drawing.Size(75, 23) + Me.btnSave.TabIndex = 10 + Me.btnSave.Text = "&Save" + Me.btnSave.UseVisualStyleBackColor = True + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(318, 73) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(30, 13) + Me.Label5.TabIndex = 10 + Me.Label5.Text = "Title:" + ' + 'txtTitle + ' + Me.txtTitle.Location = New System.Drawing.Point(321, 89) + Me.txtTitle.Name = "txtTitle" + Me.txtTitle.Size = New System.Drawing.Size(257, 20) + Me.txtTitle.TabIndex = 4 + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(441, 151) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(61, 13) + Me.Label6.TabIndex = 12 + Me.Label6.Text = "Cell Phone:" + ' + 'txtCell + ' + Me.txtCell.Location = New System.Drawing.Point(444, 167) + Me.txtCell.Name = "txtCell" + Me.txtCell.Size = New System.Drawing.Size(100, 20) + Me.txtCell.TabIndex = 6 + ' + 'txtDirectFax + ' + Me.txtDirectFax.Location = New System.Drawing.Point(567, 167) + Me.txtDirectFax.Name = "txtDirectFax" + Me.txtDirectFax.Size = New System.Drawing.Size(100, 20) + Me.txtDirectFax.TabIndex = 7 + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(564, 151) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(58, 13) + Me.Label7.TabIndex = 15 + Me.Label7.Text = "Direct Fax:" + ' + 'MenuStrip1 + ' + Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.HelpToolStripMenuItem}) + Me.MenuStrip1.Location = New System.Drawing.Point(0, 0) + Me.MenuStrip1.Name = "MenuStrip1" + Me.MenuStrip1.Size = New System.Drawing.Size(769, 24) + Me.MenuStrip1.TabIndex = 16 + Me.MenuStrip1.Text = "MenuStrip1" + ' + 'HelpToolStripMenuItem + ' + Me.HelpToolStripMenuItem.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.HelpToolStripMenuItem.Name = "HelpToolStripMenuItem" + Me.HelpToolStripMenuItem.Size = New System.Drawing.Size(40, 20) + Me.HelpToolStripMenuItem.Text = "&Help" + ' + 'boxOffice + ' + Me.boxOffice.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.boxOffice.Items.AddRange(New Object() {"Los Angeles", "San Francisco"}) + Me.boxOffice.Location = New System.Drawing.Point(321, 127) + Me.boxOffice.MaxDropDownItems = 2 + Me.boxOffice.Name = "boxOffice" + Me.boxOffice.Size = New System.Drawing.Size(121, 21) + Me.boxOffice.TabIndex = 17 + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Location = New System.Drawing.Point(318, 112) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(35, 13) + Me.Label8.TabIndex = 18 + Me.Label8.Text = "Office" + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Location = New System.Drawing.Point(12, 112) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(47, 13) + Me.Label9.TabIndex = 19 + Me.Label9.Text = "Position:" + ' + 'txtPosition + ' + Me.txtPosition.Location = New System.Drawing.Point(12, 127) + Me.txtPosition.Name = "txtPosition" + Me.txtPosition.Size = New System.Drawing.Size(289, 20) + Me.txtPosition.TabIndex = 20 + ' + 'Form1 + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(769, 655) + Me.Controls.Add(Me.txtPosition) + Me.Controls.Add(Me.Label9) + Me.Controls.Add(Me.Label8) + Me.Controls.Add(Me.boxOffice) + Me.Controls.Add(Me.Label7) + Me.Controls.Add(Me.txtDirectFax) + Me.Controls.Add(Me.txtCell) + Me.Controls.Add(Me.Label6) + Me.Controls.Add(Me.txtTitle) + Me.Controls.Add(Me.Label5) + Me.Controls.Add(Me.btnSave) + Me.Controls.Add(Me.btnCheck) + Me.Controls.Add(Me.txtUserID) + Me.Controls.Add(Me.Label4) + Me.Controls.Add(Me.btnPreview) + Me.Controls.Add(Me.WebBrowser1) + Me.Controls.Add(Me.txtEmail) + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.txtDirPhone) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.txtName) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.MenuStrip1) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.MainMenuStrip = Me.MenuStrip1 + Me.MaximizeBox = False + Me.Name = "Form1" + Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide + Me.Text = "Create Signature" + Me.MenuStrip1.ResumeLayout(False) + Me.MenuStrip1.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents txtName As System.Windows.Forms.TextBox + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents txtDirPhone As System.Windows.Forms.TextBox + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents txtEmail As System.Windows.Forms.TextBox + Friend WithEvents WebBrowser1 As System.Windows.Forms.WebBrowser + Friend WithEvents btnPreview As System.Windows.Forms.Button + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents txtUserID As System.Windows.Forms.TextBox + Friend WithEvents btnCheck As System.Windows.Forms.Button + Friend WithEvents btnSave As System.Windows.Forms.Button + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents txtTitle As System.Windows.Forms.TextBox + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents txtCell As System.Windows.Forms.TextBox + Friend WithEvents txtDirectFax As System.Windows.Forms.TextBox + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip + Friend WithEvents HelpToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents boxOffice As System.Windows.Forms.ComboBox + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents Label9 As System.Windows.Forms.Label + Friend WithEvents txtPosition As System.Windows.Forms.TextBox + +End Class diff --git a/CreateSignature/Form1.resx b/CreateSignature/Form1.resx new file mode 100644 index 0000000..10182fc --- /dev/null +++ b/CreateSignature/Form1.resx @@ -0,0 +1,149 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 25 + + + + + AAABAAIAICAQAAAAAADoAgAAJgAAABAQEAAAAAAAKAEAAA4DAAAoAAAAIAAAAEAAAAABAAQAAAAAAIAC + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAgAAAAICAAIAAAACAAIAAgIAAAMDAwACAgIAAAAD/AAD/ + AAAA//8A/wAAAP8A/wD//wAA////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACI + iIiIiIiIiIiIiIiIgAAAj7//v/+//7//v/+//4AAAI////+//7//v/+//7+AAACHAP+/AL//v/+//7/3 + gAAJDwEA8BD/v/+//7//f4AACRAZEQEQv/+//7//t/+AAAmRmRkZEPd3d7//v3+/gAAJmZkZmRB4iIh3 + v/e//4AACZmZGZkQj///h39//7+AAAmZmRmZEL+/v/h3/7//gAABmZkZmRD///+/h7//v4AAABmZmZEI + /////7h/v/+AAAAJmZkQj///////h/+/gAAACREREP//////v/h//4AAAAAREQD///////+/h7+AAAAZ + mZmRD////////7h/gACAmXd3mQj/////////h4AACZe7u3kQ////////v/iAAAmXu7t5EP////////+/ + gAAJl7u7eRCIiIiIiIiIiIAACZe7u3kQAAAAAAAAAAAAAICZd3eZCAAAAAAAAAAAAAAAmZmZkQAAAAAA + AAAAAAAAAACZmQAAAAAAAAAAAAAAAAAIAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA//////// + ///////////////////AAAADwAAAA8AAAAPAAAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAA + AAOAAAADwAAAA8AAAAPAAAADgAAAAwAAAAMAAAADAAAAAwAAAAMAD///AA///4Af///AP///4H////// + //8oAAAAEAAAACAAAAABAAQAAAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAgAAAAICAAIAA + AACAAIAAgIAAAMDAwACAgIAAAAD/AAD/AAAA//8A/wAAAP8A/wD//wAA////AAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAiIiIiIiIgACHd3d3d3eAAIAHAzN3c4ABCRAAADc3gAGZGQ/7A3eAABkQ+//wN4AAER + B/+/8DgAGXeQv/+/AwAXu3D/v/+wABe7cIiIiIgAGXeQAAAAAAABERAAAAAAAAAAAAAAAAAA//8AAP// + AACAAQAAgAEAAIABAAAAAQAAAAEAAAABAACAAQAAgAEAAAABAAAAAQAAAAEAAAP/AACH/wAA//8AAA== + + + \ No newline at end of file diff --git a/CreateSignature/Form1.vb b/CreateSignature/Form1.vb new file mode 100644 index 0000000..4d27950 --- /dev/null +++ b/CreateSignature/Form1.vb @@ -0,0 +1,181 @@ +Imports System.IO +Imports System.DirectoryServices +Public Class Form1 +#Region " Variables" + Dim htmText As String = "" + Dim tmpHtmText = "" + Dim userID As String = "" + Dim userFName As String = "" + Dim userInitials As String = "" + Dim userLName As String = "" + Dim userTitle As String = "" + Dim userPosition As String = "" + Dim userDirPhone As String = "" + Dim userCellPhone As String = "" + Dim userDirFax As String = "" + Dim userEmail As String = "" + Dim userHome As String = "" + Dim LA_address1 As String = "1100 Glendon Avenue | 14th Floor" + Dim LA_address2 As String = "Los Angeles, CA 90024.3503" + Dim LA_phone As String = "310.500.3500" + Dim LA_fax As String = "310.500.3501" + Dim SF_address1 As String = "199 Fremont Street | 20th Floor" + Dim SF_address2 As String = "San Francisco, CA 94105.2255" + Dim SF_phone As String = "415.489.7700" + Dim SF_fax As String = "415.489.7701" + Dim tempfile = "" + Dim app_path As String = System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase).Replace("file:\", "") +#End Region + Private Sub btnPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPreview.Click + Dim precode As String = "
" + Dim postcode As String = "
" + Dim s As String = "" + If Me.txtTitle.Text <> "" Then + s = htmText.Replace("enter-name-here", Me.txtName.Text & ",") + Else + s = htmText.Replace("enter-name-here", Me.txtName.Text) + End If + s = s.Replace("enter-email-here", Me.txtEmail.Text) + s = s.Replace("enter-title-here", Me.txtTitle.Text) + s = s.Replace("enter-position-here", Me.txtPosition.Text) + If Trim(Me.txtDirPhone.Text) <> "" Then + s = s.Replace("enter-dirphone-here", precode & "dir:  " & Trim(Me.txtDirPhone.Text) & postcode) + Else + s = s.Replace("enter-dirphone-here", "") + End If + If Trim(Me.txtCell.Text) <> "" Then + s = s.Replace("enter-cellphone-here", precode & "cell:  " & Trim(Me.txtCell.Text) & postcode) + Else + s = s.Replace("enter-cellphone-here", "") + End If + If trim(Me.txtDirectFax.Text) <> "" Then + s = s.Replace("enter-dirfax-here", precode & "dir fax:  " & Trim(Me.txtDirectFax.Text) & postcode) + Else + s = s.Replace("enter-dirfax-here", "") + End If + If InStr(Me.boxOffice.SelectedItem, "Los Angeles") Then + s = s.Replace("enter-address1-here", LA_address1) + s = s.Replace("enter-address2-here", LA_address2) + s = s.Replace("enter-mainphone-here", LA_phone) + s = s.Replace("enter-mainfax-here", LA_fax) + Else + s = s.Replace("enter-address1-here", SF_address1) + s = s.Replace("enter-address2-here", SF_address2) + s = s.Replace("enter-mainphone-here", SF_phone) + s = s.Replace("enter-mainfax-here", SF_fax) + End If + tempfile = app_path & "\" & userID & "-tmp-" & String.Format("{0:yyMMddHHmmss}", Now) & ".htm" + Dim sw As StreamWriter = File.CreateText(tempfile) + tmpHtmText = s + sw.Write(tmpHtmText) + sw.Flush() + sw.Close() + Me.WebBrowser1.Navigate(New Uri(tempfile)) + End Sub + Function SetHTMText() As String + Dim s As String = "" + Dim objStreamReader As StreamReader + Dim strLine As String + objStreamReader = New StreamReader(app_path & "\template.htm") + strLine = objStreamReader.ReadLine + Do While Not strLine Is Nothing + s &= strLine & vbCrLf + strLine = objStreamReader.ReadLine + Loop + objStreamReader.Close() + Return s + End Function + Private Sub btnCheck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCheck.Click + Dim sName As String = Trim(Me.txtUserID.Text) + If sName = "" Then + MsgBox("Cannot check a blank User ID") + Exit Sub + End If + Dim entry As New DirectoryEntry("LDAP://lysdom") + Dim seach As New DirectorySearcher(entry) + seach.Filter = "(&(objectCategory=person)(objectClass=user)(sAMAccountName=" & sName & "))" + Try + If seach.FindAll.Count = 0 Then + MsgBox(sName & " User ID not found") + Exit Sub + Else + For Each r As SearchResult In seach.FindAll + userID = UCase(GetProperty(r, "sAMAccountName")) + userEmail = LCase(GetProperty(r, "mail")) + userFName = Trim(GetProperty(r, "givenName")) + userInitials = Trim(GetProperty(r, "initials")) + userLName = Trim(GetProperty(r, "sn")) + userTitle = Trim(GetProperty(r, "title")) + userPosition = Trim(GetProperty(r, "description")) + userDirPhone = Trim(GetProperty(r, "telephoneNumber")) + userDirFax = Trim(GetProperty(r, "facsimileTelephoneNumber")) + userCellPhone = Trim(GetProperty(r, "mobile")) + userHome = LCase(GetProperty(r, "homeDirectory")) + Next + Me.txtUserID.Text = Me.userID + If Me.userInitials <> "" Then + If Me.userInitials.EndsWith(".") Then + Me.txtName.Text = Me.userFName & " " & Me.userInitials & " " & Me.userLName + Else + Me.txtName.Text = Me.userFName & " " & Me.userInitials & ". " & Me.userLName + End If + Else + Me.txtName.Text = Me.userFName & " " & Me.userLName + End If + Me.txtEmail.Text = Me.userEmail + Me.txtDirPhone.Text = Me.userDirPhone + Me.txtCell.Text = Me.userCellPhone + Me.txtDirectFax.Text = Me.userDirFax + Me.txtTitle.Text = Me.userTitle + Me.txtPosition.Text = Me.userPosition + Me.btnSave.Enabled = True + Me.btnPreview.Enabled = True + Me.boxOffice.Enabled = True + If InStr(userHome, "\\sf") Then + Me.boxOffice.SelectedItem = "San Francisco" + Else + Me.boxOffice.SelectedItem = "Los Angeles" + End If + Me.btnPreview_Click(sender, e) + End If + Catch ex As Exception + MsgBox(ex.Message) + End Try + End Sub + Function GetProperty(ByVal r As SearchResult, ByVal PropertyName As String) As String + Dim s As String = "" + If r.Properties.Contains(PropertyName) Then + s = r.Properties.Item(PropertyName)(0) + End If + Return s + End Function + Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + htmText = SetHTMText() + Me.boxOffice.Enabled = False + Me.btnPreview.Enabled = False + Me.btnSave.Enabled = False + End Sub + Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click + Dim dest_path As String = "\\fpas\Apps\UserSignatures\" & userID + If Not Directory.Exists(dest_path) Then + Directory.CreateDirectory(dest_path) + End If + Dim sr As StreamWriter + sr = New StreamWriter(dest_path & "\firmsignature.htm") + sr.Write(tmpHtmText) + sr.Close() + File.Copy(app_path & "\lysr_logo.jpg", dest_path & "\lysr_logo.jpg", True) + MsgBox("Signature file created in " & dest_path & "\firmsignature.htm") + End Sub + Private Sub txtUserID_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtUserID.TextChanged + Me.btnCheck.Enabled = True + End Sub + Private Sub HelpToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HelpToolStripMenuItem.Click + Dim h As New ProgInfo + h.ShowDialog() + End Sub + Private Sub WebBrowser1_Navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles WebBrowser1.Navigated + File.Delete(tempfile) + End Sub + +End Class diff --git a/CreateSignature/My Project/Application.Designer.vb b/CreateSignature/My Project/Application.Designer.vb new file mode 100644 index 0000000..d3b47c2 --- /dev/null +++ b/CreateSignature/My Project/Application.Designer.vb @@ -0,0 +1,38 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.239 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + 'NOTE: This file is auto-generated; do not modify it directly. To make changes, + ' or if you encounter build errors in this file, go to the Project Designer + ' (go to Project Properties or double-click the My Project node in + ' Solution Explorer), and make changes on the Application tab. + ' + Partial Friend Class MyApplication + + _ + Public Sub New() + MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) + Me.IsSingleInstance = false + Me.EnableVisualStyles = true + Me.SaveMySettingsOnExit = true + Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses + End Sub + + _ + Protected Overrides Sub OnCreateMainForm() + Me.MainForm = Global.CreateSignature.Form1 + End Sub + End Class +End Namespace diff --git a/CreateSignature/My Project/Application.myapp b/CreateSignature/My Project/Application.myapp new file mode 100644 index 0000000..1243847 --- /dev/null +++ b/CreateSignature/My Project/Application.myapp @@ -0,0 +1,11 @@ + + + true + Form1 + false + 0 + true + 0 + 0 + true + diff --git a/CreateSignature/My Project/AssemblyInfo.vb b/CreateSignature/My Project/AssemblyInfo.vb new file mode 100644 index 0000000..7b28a45 --- /dev/null +++ b/CreateSignature/My Project/AssemblyInfo.vb @@ -0,0 +1,35 @@ +Imports System +Imports System.Reflection +Imports System.Runtime.InteropServices + +' General Information about an assembly is controlled through the following +' set of attributes. Change these attribute values to modify the information +' associated with an assembly. + +' Review the values of the assembly attributes + + + + + + + + + + +'The following GUID is for the ID of the typelib if this project is exposed to COM + + +' Version information for an assembly consists of the following four values: +' +' Major Version +' Minor Version +' Build Number +' Revision +' +' You can specify all the values or you can default the Build and Revision Numbers +' by using the '*' as shown below: +' + + + diff --git a/CreateSignature/My Project/Resources.Designer.vb b/CreateSignature/My Project/Resources.Designer.vb new file mode 100644 index 0000000..429decc --- /dev/null +++ b/CreateSignature/My Project/Resources.Designer.vb @@ -0,0 +1,63 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.239 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + +Imports System + +Namespace My.Resources + + 'This class was auto-generated by the StronglyTypedResourceBuilder + 'class via a tool like ResGen or Visual Studio. + 'To add or remove a member, edit your .ResX file then rerun ResGen + 'with the /str option, or rebuild your VS project. + ''' + ''' A strongly-typed resource class, for looking up localized strings, etc. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Returns the cached ResourceManager instance used by this class. + ''' + _ + Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager + Get + If Object.ReferenceEquals(resourceMan, Nothing) Then + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("CreateSignature.Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Overrides the current thread's CurrentUICulture property for all + ''' resource lookups using this strongly typed resource class. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set + resourceCulture = value + End Set + End Property + End Module +End Namespace diff --git a/CreateSignature/My Project/Resources.resx b/CreateSignature/My Project/Resources.resx new file mode 100644 index 0000000..af7dbeb --- /dev/null +++ b/CreateSignature/My Project/Resources.resx @@ -0,0 +1,117 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/CreateSignature/My Project/Settings.Designer.vb b/CreateSignature/My Project/Settings.Designer.vb new file mode 100644 index 0000000..c7633fb --- /dev/null +++ b/CreateSignature/My Project/Settings.Designer.vb @@ -0,0 +1,73 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.239 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + _ + Partial Friend NotInheritable Class MySettings + Inherits Global.System.Configuration.ApplicationSettingsBase + + Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings) + +#Region "My.Settings Auto-Save Functionality" +#If _MyType = "WindowsForms" Then + Private Shared addedHandler As Boolean + + Private Shared addedHandlerLockObject As New Object + + _ + Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) + If My.Application.SaveMySettingsOnExit Then + My.Settings.Save() + End If + End Sub +#End If +#End Region + + Public Shared ReadOnly Property [Default]() As MySettings + Get + +#If _MyType = "WindowsForms" Then + If Not addedHandler Then + SyncLock addedHandlerLockObject + If Not addedHandler Then + AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings + addedHandler = True + End If + End SyncLock + End If +#End If + Return defaultInstance + End Get + End Property + End Class +End Namespace + +Namespace My + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.CreateSignature.My.MySettings + Get + Return Global.CreateSignature.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/CreateSignature/My Project/Settings.settings b/CreateSignature/My Project/Settings.settings new file mode 100644 index 0000000..85b890b --- /dev/null +++ b/CreateSignature/My Project/Settings.settings @@ -0,0 +1,7 @@ + + + + + + + diff --git a/CreateSignature/SIGNL.ICO b/CreateSignature/SIGNL.ICO new file mode 100644 index 0000000000000000000000000000000000000000..2f4af20df15b410c51b6f492627d2d774e6cb99e GIT binary patch literal 1078 zcmcIju~Gst5Pj!4O%U6huBQfIC{H5*}y3bqAYP@{&W%2t2=XZdDM6jS*e~D9Mo# zB0nfg6`?;E;Zc@SND3pg{~spD#_&5htzC>qU(I}8x7+6wAoxQc$NVDS)vV)rOe-l~ zhiD!1J%Qrr!2+=-dcG5oGVRX|ke@2Ivm<|3`)$AAANyGoQ0;99%|i(9CY>pLE}cK3 zc75J(eO_$3411a@DhC&T>GL9$8if{_qrmKbqNh+SYW_4wwOWStWR7e#^dYA$uY%uA xQRyZ7CCANn#y(n$l}O@eX1q(8-g5+;(tBgheBYh&!gA@T=X^PzXC2=u@CgFIL<|4` literal 0 HcmV?d00001 diff --git a/CreateSignature/home/lysr_logo.jpg b/CreateSignature/home/lysr_logo.jpg new file mode 100644 index 0000000000000000000000000000000000000000..46b1bb8b30c7f6702e4c6ee0c65e235773567cdd GIT binary patch literal 1199 zcmex=iF;o{=v;^GnD0RsUZK7IjyJ|1CV5fNcw z8EI*08F@HhWM^mR<>8eO5Ri}(6%>_%OAyQWe}F-dgTaHrn3++Kfk}{&S&;Gn5r&CC zXEQT0G6LNR1I(;!Oe`QFG;u~IW)@a90R~29W@aW9Rwj0c29Pj=ppYUfo3MzXW1!N+ zjYdJDiG>S`78w_-m;$Y00;*u<M1ZNF<=dDg*6*b$pAlH1`YEILaIht3m zp7!4z@zLa1m+x7Bz2ft`E~W;B#C!4IdU&FqIVN&;S?-FtHBWVqe7fc$&D-DcHhK-C zzWL2vQ|1^u?VFr0BOJHyc5=V2)z;YEz1h7cHFqldu5*=0ypDdAm36u{=Ym1pjGlt) z+P|)(-ncYv)ivGQ6Dlqx$qU|Enm0L7F~9BMBawd@mby+q9=A{1S8{yg()C#@yM9(H zY+Ux>arvVFC3`8Apg%JweR{cIEr$n(xXPqiJ-?+cuDTYx_KvPgx1Z%^r^%ZZFL``M z*U0L4$kc_;_O`?eaBP1WYwf!?x8LphQroj)OGD)N{I{E`*B35ZwCDGVzUg7orP~fT z)$UUDu(vu~*%__vY4)gM=}*yJ)588)_mx=PJau^MyPD{|zxK-5&EI`)=f5zC`QBIO zt6MZ}=#6Ll&(Jjg)6UQ9ga6!L`si%o2lb~LL%yAQz4pZyr7orzhLF&+kf`xNv3Poa@_Hx<32& zY?{vcR<}><)~3WAf8hFaTC{h7Ag7+A{Oc2{4_BINU-@zWVXTCAGL^%K5w5-z#q) zzJB}nb@kJ+hW5ul`o9P>`JlI>?4_KI+P3cjuTs`tjVQU=zvE79*w(T)##&bc&zx8K z@pg&$?+02pmpAD7lshmVe_?ue=dZHwk<|stk2{0PG&} + + + + + + + +
+ +enter-name-here enter-title-here
+enter-position-here + +
+
+ + LINER +YANKELEVITZ SUNSHINE & + REGENSTREIF LLP +
+ + + + + + + enter-dirphone-here + enter-cellphone-here + + enter-dirfax-here + + + +
 
enter-address1-here
enter-address2-here
main:  enter-mainphone-here
fax:  enter-mainfax-here
enter-email-here
+ + +
+
Notice of Privilege/Confidentiality +Privileged and Confidential information may be contained in this message. If you +are not the addressee indicated in this message (or Responsible for delivery of +the message to such person), you may not copy or deliver this message to anyone. +In such case, you should destroy this message and kindly notify the sender by +reply email. Please advise immediately if you or your employer does not consent +to Internet email for messages of this kind. Opinions, conclusions and other +information in this message that do not relate to the official business of my +firm shall be understood as neither given nor endorsed by it. +
+
+
IRS Circular 230 Disclosure: To ensure compliance with Treasury Department Regulations, we advise you that, unless otherwise expressly indicated, any federal tax advice contained in this communication was not intended or written to be used, and cannot be used, for the purpose of (i) avoiding tax-related penalties under the Internal Revenue Code or applicable state or local tax law provisions or (ii) promoting, marketing or recommending to another party any tax-related matter addressed herein. + +
+ + diff --git a/CreateSignature/temp.vb b/CreateSignature/temp.vb new file mode 100644 index 0000000..8aac2b7 --- /dev/null +++ b/CreateSignature/temp.vb @@ -0,0 +1,54 @@ + Private Sub btnPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPreview.Click + Dim s2 As String = "" + If Me.txtTitle.Text <> "" Then + s2 = htmText.Replace("enter-name-here", Me.txtName.Text & ",") + Else + s2 = htmText.Replace("enter-name-here", Me.txtName.Text) + End If + Dim s3 As String = s2.Replace("enter-email-here", Me.txtEmail.Text) + Dim s4 As String = s3.Replace("enter-title-here", Me.txtTitle.Text) + Dim s5 As String = "" + If Me.txtDirPhone.Text <> "" Then + s5 = s4.Replace("enter-dirphone-here", "dir:  " & Me.txtDirPhone.Text) + Else + s5 = s4.Replace("enter-dirphone-here", "") + End If + Dim s6 As String = "" + If Me.txtCell.Text <> "" Then + s6 = s5.Replace("enter-cellphone-here", "cell:  " & Me.txtCell.Text) + Else + s6 = s5.Replace("enter-cellphone-here", "") + End If + Dim s7 As String = "" + If Me.txtDirectFax.Text <> "" Then + s7 = s6.Replace("enter-dirfax-here", "dir fax:  " & Me.txtDirectFax.Text) + Else + s7 = s6.Replace("enter-dirfax-here", "") + End If + Dim s8 As String = "" + Dim s9 As String = "" + Dim s10 As String = "" + Dim s11 As String = "" + If Me.boxOffice.Text = "Los Angeles" Then + s8 = s7.Replace("enter-address1-here", LA_address1) + s9 = s8.Replace("enter-address2-here", LA_address2) + s10 = s9.Replace("enter-mainphone-here", LA_phone) + s11 = s10.Replace("enter-mainfax-here", LA_fax) + ElseIf Me.boxOffice.Text = "San Francisco" Then + s8 = s7.Replace("enter-address1-here", SF_address1) + s9 = s8.Replace("enter-address2-here", SF_address2) + s10 = s9.Replace("enter-mainphone-here", SF_phone) + s11 = s10.Replace("enter-mainfax-here", SF_fax) + Else + MsgBox("Please select a valid office from the drop-down menu") + Exit Sub + End If + Dim path As String = System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase) + path = path.Replace("file:\", "") + tempfile = path & "\" & userID & "-tmp-" & String.Format("{0:yyMMddHHmmss}", Now) & ".htm" + Dim sw As StreamWriter = File.CreateText(tempfile) + sw.Write(s11) + sw.Flush() + sw.Close() + Me.WebBrowser1.Navigate(New Uri(tempfile)) + End Sub \ No newline at end of file