email signature script

nappy · June 13, 2013

Hi,

I am trying to add a field in a signature script.

I am currently referencing the mobile and fax field of a user in Active Directory I want to add the Home field as well but I keep getting a error "Windescription is: Variable must be type 'Object' "Error:Object referenced outside a "With" Statement.

I am adding the line the same way I have done the other fields.

What Am I doing wrong?

Thanks

FireFox · June 13, 2013

Hi,
Welcome to the autoit forum

Without your script, we need to guess what's wrong. Personally, I'm not this guy : :sorcerer: .

Br, FireFox.

nappy · June 13, 2013

Hi,

Apologies, here is the script

FireFox · June 13, 2013

Great, oh wait... need to put my glasses :geek: .

Don't worry I'm waiting for your next post, simply use autoit code tags and paste your script inside .

Edited June 13, 2013 by FireFox

nappy · June 13, 2013

$SigPath = @AppDataDir & "MicrosoftAD"
$SigPicPath = $SigPath & "signature.jpg"

$adName = ""
$adMail = ""
$adJobDesc = ""
$adHome = ""
$adPhone = ""
$adFax = ""
$adMobile = ""
$adPager = ""

setOutlookSignature ()
activateSig ()

Func runSignatureScript ()
 setOutlookSignature ()
 activateSig ()
EndFunc

Func setOutlookSignature ()

 If not FileExists($SigPath) Then
 DirCreate ($SigPath)
 EndIf

 FileCopy(@LogonServer & "netlogonv1.0Softwaresignature.jpg", $SigPath, 1)
 createHTMLFile ()

EndFunc

Func _ADLookup ($3LC)
 Local $objCommand = ObjCreate("ADODB.Command")
 Local $objConnection = ObjCreate("ADODB.Connection")

 $objConnection.Provider = "ADsDSOObject"
 $objConnection.Open("Active Directory Provider")
 $objCommand.ActiveConnection = $objConnection

 Local $strFilter = "(sAMAccountName=" & $3LC & ")"
 Local $strAttributes = "displayName, mail, title, Home, telephoneNumber, facsimileTelephoneNumber, mobile, pager"
 Local $strQuery = $strBase & ";" & $strFilter & ";" & $strAttributes & ";subtree"
 $objCommand.CommandText = $strQuery
 $objCommand.Properties("Page Size") = 100
 $objCommand.Properties("Timeout") = 30
 $objCommand.Properties("Cache Results") = False
 $ADS_SCOPE_SUBTREE = 2
 $objCommand.Properties("searchscope") = $ADS_SCOPE_SUBTREE
 Local $objRecordSet = $objCommand.Execute
 While Not $objRecordSet.EOF
 $adName = $objRecordSet.Fields("displayName").value
 $adMail = $objRecordSet.Fields("mail").value
 $adJobDesc = $objRecordSet.Fields("title").value
 $adHome = $objRecordSet.Fields("home").value
 $adPhone = $objRecordSet.Fields("telephoneNumber").value
 $adFax = $objRecordSet.Fields("facsimileTelephoneNumber").value
 $adMobile = $objRecordSet.Fields("mobile").value
 $adPager = $objRecordSet.Fields("pager").value
 $objRecordSet.MoveNext
 WEnd
 $objConnection.Close
 $objConnection = ""
 $objCommand = ""
 $objRecordSet = ""
 $objRootDSE = ""
 Return ""
EndFunc

Func createHTMLFile ()


 $none = _ADLookup (@UserName)

 If _ADIsMemberOf (_ADSamAccountNametoFQDN ("SCC Team (Staff Consultative Committee)"), _ADSamAccountNametoFQDN (@UserName)) Then
 SCCSignature ();
 EndIf


 ;MsgBox(0, "Tutorial", $adName & " " & $adMail & " " & @UserName)
 $file = FileOpen($SigPath & "mt.htm", 2)
 FileWriteLine ($file, "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.0 Transitional//EN"">")
 FileWriteLine ($file, "<HTML><HEAD><TITLE>Microsoft Office Outlook Signature</TITLE>")
 FileWriteLine ($file, "<META http-equiv=Content-Type content=""text/html; charset=windows-1252"">")
 FileWriteLine ($file, "<META content=""MSHTML 6.00.3790.186"" name=GENERATOR></HEAD>")
 FileWriteLine ($file, "<body>")
 FileWriteLine ($file, " " & $adName & " ")
 FileWriteLine ($file, " " & $adJobDesc & " ")
 If $adHome <> "" Then
 FileWriteLine ($file, " " & $adHome & " ")
 EndIf
 FileWriteLine ($file, " Tel: " & $adPhone & " ")
 If $adFax <> "" Then
 FileWriteLine ($file, " Fax: " & $adFax & " ")
 EndIf
 If $adMobile <> "" and $adPager = "none" Then
 FileWriteLine ($file, " Cell: " & $adMobile & " ")
 EndIf
 FileWriteLine ($file, " E-mail: <a href=mailto:" & $adMail & " >" & $adMail & " ")
 FileWriteLine ($file, "<a href=http://www.google.com>www.google.com</a> ")
 FileWriteLine ($file, " ")
 FileWriteLine ($file, "</a>")
 FileWriteLine ($file, "</h6>")
 FileWriteLine ($file, "<A href=http://www.google.com> <img width=""250px"" height=""60px"" src=signature.jpg ></a> ")
 FileWriteLine ($file, " ")
 FileWriteLine ($file, " ")
 FileWriteLine ($file, "</BODY></HTML>")
 FileClose($file)

 $file = FileOpen($SigPath & "reply.htm", 2)
 FileWriteLine ($file, "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.0 Transitional//EN"">")
 FileWriteLine ($file, "<HTML><HEAD><TITLE>Microsoft Office Outlook Signature</TITLE>")
 FileWriteLine ($file, "<META http-equiv=Content-Type content=""text/html; charset=windows-1252"">")
 FileWriteLine ($file, "<META content=""MSHTML 6.00.3790.186"" name=GENERATOR></HEAD>")
 FileWriteLine ($file, "<body>")
 FileWriteLine ($file, " " & $adName & " ")
 If $adMobile <> "" and $adPager = "none" Then
 FileWriteLine ($file, " " & $adJobDesc & " | Mobile Telecommunications Ltd | Tel: " & $adPhone & " | Cell: " & $adMobile & " | Fax: " & $adFax & " | <a href=http://www.mtc.com.na>www.mtc.com.na</a> ")
 Else
 FileWriteLine ($file, " " & $adJobDesc & " | Mobile Telecommunications Ltd | Tel: " & $adPhone & " | Fax: " & $adFax & " | <a href=http://www.mtc.com.na>www.mtc.com.na</a> ")
 EndIf
 FileWriteLine ($file, " ")
 FileWriteLine ($file, " ")
 FileWriteLine ($file, "</BODY></HTML>")
 FileClose($file)

EndFunc

Edited June 13, 2013 by nappy

water · June 13, 2013

To access Active Directory I suggest do use my AD UDF. To create an Outlook signature use my OutlookEX UDF.

Sign In

email signature script

Recommended Posts

nappy

FireFox

nappy

FireFox

nappy

water

Create an account or sign in to comment

Create an account

Sign in

Browse

AutoIt Resources

Release

Beta