Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations gkittelson on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Almost there help sending email

Status
Not open for further replies.
gmagerr

gmagerr

Technical User
Aug 11, 2001
323
US
Hi all
I am trying to finish this script which grabs info from a generated text file. The text file was generated using certutil. It's a list of all the user and computer certificates which are going to expire within 30 days. I have everything working correctly except the format of the email. Here's what's happening. I read the original text file generated by certutil. Grab the information I need using the inStr function. Write that infor to another text file. Pull the info from the new text file and send it to the users with the info regarding their certificates. This is what's working. There are 20 entries in the text file. I receive 20 emails (testing with my account) That's good. Here's what's not working. The only information (from variables in the script) that is being sent in the email is the certificate template info, all the other info is blank. Also I'm trying to use the instr function at the beginning to send to only users that have @ in the name. Anyway here's a sample email and the code. BTW all of the emai subjects are "No UserName"

Code: 
CertTest

Issued Request ID: 
Certificate Expiration Date: 
User Principal Name: 
Certificate Template: "EFS"

Here's the code

Code: 
'================================================
' 
' NAME: 
' 
' AUTHOR: Gene Magerr
' EMAIL: genemagerr@hotmail.com
'
' COMMENT: 
'
' You have a royalty-free right to use, modify, reproduce, and
' distribute this script file in any way you find useful, provided that
' you agree that the creator, owner above has no warranty, obligations,
' or liability for such use.
'
' VERSION HISTORY:
' 1.0   xx/xx/xxxx  Initial release
'
'================================================
'Option Explicit

'================================================
' VARIABLE DECLARATIONS
'================================================
Dim objShell, objNetwork, objFSO

Set objShell = CreateObject("WScript.Shell")
Set objNetwork = WScript.CreateObject("WScript.Network")
Set objFSO = CreateObject("Scripting.FilesystemObject")

'================================================
' STATIC VARIABLE ASSIGNMENTS
'================================================
Const FOR_READING = 1, FOR_WRITING = 2, FOR_APPENDING = 8

'================================================
' MAIN SCRIPT CODE
'================================================
If Not objFSO.FileExists("D:\DATA\PKI\Expire\TempCert.txt") Then
objFSO.CreateTextFile("D:\DATA\PKI\Expire\TempCert.txt")
End If

Set objTempCert = objFSO.OpenTextFile("D:\DATA\PKI\Expire\TempCert.txt",2)

Set strCert = objFSO.OpenTextFile("D:\DATA\PKI\Expire\expiring_certificates.txt",1)
strArray = Split(strCert.ReadAll,vbCrLf)

For Each cert In strArray
If InStr(cert, "Issued Request ID:") Then
    reqID = Trim(Split(cert,":")(1))
  	objTempCert.WriteLine "Issued Request ID: " & reqID
  
  ElseIf InStr(cert, "Certificate Expiration Date:") Then
    expDate = Trim(Split(cert,":")(1))
  	objTempCert.WriteLine "Certificate Expiration Date: " & expDate
  
  ElseIf InStr(cert, "User Principal Name:") Then
    userName = Trim(Split(cert,":")(1))
  	objTempCert.WriteLine "User Principal Name: " & userName
  
  ElseIf InStr(cert, "Certificate Template:") Then
    cerTemplate = Trim(Split(cert,":")(1))
  	objTempCert.WriteLine "Certificate Template: " & cerTemplate & vbCrLf
  
End If
reqID = "": expDate = "": userName = "": cerTemplate = ""

Next
strCert.Close

Set strCertSend = objFSO.OpenTextFile("D:\DATA\PKI\Expire\TempCert.txt",1)
strArraySend = Split(strCertSend.ReadAll,vbCrLf)

For Each certsend In strArraySend

If InStr(certsend, "User Principal Name:") Then
    userName = Trim(Split(certsend,":")(1))
End If 

Set objEmail = CreateObject("CDO.Message")
objEmail.From = "gmagerr@rand.org"
If InStr(userName, "@") <> True Then
objEmail.To = "gmagerr@rand.org"
objEmail.Subject = "No UserName"
Else
objEmail.To = "gmagerr@rand.org"
objEmail.Subject = "Cert Test"
End if

  If InStr(certsend, "Issued Request ID:") Then
    reqID = Trim(Split(certsend,":")(1))
 
  ElseIf InStr(certsend, "Certificate Expiration Date:") Then
    expDate = Trim(Split(certsend,":")(1))

  ElseIf InStr(certsend, "User Principal Name:") Then
    userName = Trim(Split(certsend,":")(1))
  
  ElseIf InStr(certsend, "Certificate Template:") Then
    cerTemplate = Trim(Split(certsend,":")(1))

objEmail.TextBody = objEmail.TextBody & ("CertTest") & vbCrLf

objEmail.TextBody = objEmail.TextBody & vbCrLf & "Issued Request ID: " & reqID
objEmail.TextBody = objEmail.TextBody & vbCrLf & "Certificate Expiration Date: " & expDate
objEmail.TextBody = objEmail.TextBody & vbCrLf & "User Principal Name: " & userName
objEmail.TextBody = objEmail.TextBody & vbCrLf & "Certificate Template: " & cerTemplate

objEmail.Configuration.Fields.Item ("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/sendusing")[/URL] = 2
objEmail.Configuration.Fields.Item ("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/smtpserver")[/URL] = "mail.rand.org" 
objEmail.Configuration.Fields.Item ("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/smtpserverport")[/URL] = 25
objEmail.Configuration.Fields.Update
objEmail.Send

End If
reqID = "": expDate = "": userName = "": cerTemplate = ""
objEmail.TextBody = ""

Next
strCertSend.Close

'================================================
' SUBS AND FUNCTIONS
'================================================
 
Sort by date Sort by votes
gmagerr,
put a message box after the line
objEmail.TextBody = objEmail.TextBody & ("CertTest") & vbCrLf
and before the line
objEmail.TextBody = objEmail.TextBody & vbCrLf & "Issued Request ID: " & reqID
to display all of your variables. are they all populated?
regards,
longhair
 
Upvote 0 Downvote
I actually did a
WScript.echo reqID, expDate, userName, cerTemplate

The only variable returning anything is the cerTemplate, which is the only variable showing in the email.
 
Upvote 0 Downvote
ok, so I moved the lines around, making the userName tha last line. Now the wscript.echo displays only the username. Any Ideas?

Thanks

If InStr(certsend, "Issued Request ID:") Then
reqID = Trim(Split(certsend,":")(1))

ElseIf InStr(certsend, "Certificate Expiration Date:") Then
expDate = Trim(Split(certsend,":")(1))

ElseIf InStr(certsend, "Certificate Template:") Then
cerTemplate = Trim(Split(certsend,":")(1))

ElseIf InStr(certsend, "User Principal Name:") Then
userName = Trim(Split(certsend,":")(1))
 
Upvote 0 Downvote
gmagerr said:
Code: 
  If InStr(certsend, "Issued Request ID:") Then
    reqID = Trim(Split(certsend,":")(1))
 
  ElseIf InStr(certsend, "Certificate Expiration Date:") Then
    expDate = Trim(Split(certsend,":")(1))

  ElseIf InStr(certsend, "User Principal Name:") Then
    userName = Trim(Split(certsend,":")(1))
  
  ElseIf InStr(certsend, "Certificate Template:") Then
    cerTemplate = Trim(Split(certsend,":")(1))

objEmail.TextBody = objEmail.TextBody & ("CertTest") & vbCrLf

objEmail.TextBody = objEmail.TextBody & vbCrLf & "Issued Request ID: " & reqID
objEmail.TextBody = objEmail.TextBody & vbCrLf & "Certificate Expiration Date: " & expDate
objEmail.TextBody = objEmail.TextBody & vbCrLf & "User Principal Name: " & userName
objEmail.TextBody = objEmail.TextBody & vbCrLf & "Certificate Template: " & cerTemplate

objEmail.Configuration.Fields.Item ("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/sendusing")[/URL] = 2
objEmail.Configuration.Fields.Item ("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/smtpserver")[/URL] = "mail.rand.org" 
objEmail.Configuration.Fields.Item ("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/smtpserverport")[/URL] = 25
objEmail.Configuration.Fields.Update
objEmail.Send

End If
Click to expand...
I think it's your if/then/else They should be separate if/then...you're basically saying if this then do this, if not then do something else instead.

Also, your mail send code won't trigger unless only your 4th condition check is true.

Try this (note code not tested, just off the top of my head), add the green, delete the red:
Code: 
If InStr(certsend, "Issued Request ID:") Then
    reqID = Trim(Split(certsend,":")(1))
[green]end if[/green]
 
If InStr(certsend, "Certificate Expiration Date:") Then
    expDate = Trim(Split(certsend,":")(1))
[green]end if[/green]

If InStr(certsend, "User Principal Name:") Then
    userName = Trim(Split(certsend,":")(1))
[green]end if[/green]
  
If InStr(certsend, "Certificate Template:") Then
    cerTemplate = Trim(Split(certsend,":")(1))
[green]end if[/green]

objEmail.TextBody = objEmail.TextBody & ("CertTest") & vbCrLf

objEmail.TextBody = objEmail.TextBody & vbCrLf & "Issued Request ID: " & reqID
objEmail.TextBody = objEmail.TextBody & vbCrLf & "Certificate Expiration Date: " & expDate
objEmail.TextBody = objEmail.TextBody & vbCrLf & "User Principal Name: " & userName
objEmail.TextBody = objEmail.TextBody & vbCrLf & "Certificate Template: " & cerTemplate

objEmail.Configuration.Fields.Item ("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/sendusing")[/URL] = 2
objEmail.Configuration.Fields.Item ("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/smtpserver")[/URL] = "mail.rand.org" 
objEmail.Configuration.Fields.Item ("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/smtpserverport")[/URL] = 25
objEmail.Configuration.Fields.Update
objEmail.Send

[red]End If[/red]
 
Upvote 0 Downvote
Read through your code again, I see a similar issue above with if/then/else...
Code: 
For Each cert In strArray
If InStr(cert, "Issued Request ID:") Then
    reqID = Trim(Split(cert,":")(1))
      objTempCert.WriteLine "Issued Request ID: " & reqID
  
  ElseIf InStr(cert, "Certificate Expiration Date:") Then
    expDate = Trim(Split(cert,":")(1))
      objTempCert.WriteLine "Certificate Expiration Date: " & expDate
  
  ElseIf InStr(cert, "User Principal Name:") Then
    userName = Trim(Split(cert,":")(1))
      objTempCert.WriteLine "User Principal Name: " & userName
  
  ElseIf InStr(cert, "Certificate Template:") Then
    cerTemplate = Trim(Split(cert,":")(1))
      objTempCert.WriteLine "Certificate Template: " & cerTemplate & vbCrLf
  
End If

Next
again, add the green, delete the red:
Code: 
For Each cert In strArray
If InStr(cert, "Issued Request ID:") Then
    reqID = Trim(Split(cert,":")(1))
      objTempCert.WriteLine "Issued Request ID: " & reqID
[green]end if[/green]
  
[red]Else[/red]If InStr(cert, "Certificate Expiration Date:") Then
    expDate = Trim(Split(cert,":")(1))
      objTempCert.WriteLine "Certificate Expiration Date: " & expDate
[green]end if[/green]  

[red]Else[/red]If InStr(cert, "User Principal Name:") Then
    userName = Trim(Split(cert,":")(1))
      objTempCert.WriteLine "User Principal Name: " & userName
[green]end if[/green]  

[red]Else[/red]If InStr(cert, "Certificate Template:") Then
    cerTemplate = Trim(Split(cert,":")(1))
      objTempCert.WriteLine "Certificate Template: " & cerTemplate & vbCrLf
  
End If

Next
I also need to be better at my editing skills, my first reply code block should look like:
Code: 
If InStr(certsend, "Issued Request ID:") Then
    reqID = Trim(Split(certsend,":")(1))
[green]end if[/green]
 
[red]else[/red]If InStr(certsend, "Certificate Expiration Date:") Then
    expDate = Trim(Split(certsend,":")(1))
[green]end if[/green]

[red]else[/red]If InStr(certsend, "User Principal Name:") Then
    userName = Trim(Split(certsend,":")(1))
[green]end if[/green]
  
[red]else[/red]If InStr(certsend, "Certificate Template:") Then
    cerTemplate = Trim(Split(certsend,":")(1))
[green]end if[/green]

objEmail.TextBody = objEmail.TextBody & ("CertTest") & vbCrLf

objEmail.TextBody = objEmail.TextBody & vbCrLf & "Issued Request ID: " & reqID
objEmail.TextBody = objEmail.TextBody & vbCrLf & "Certificate Expiration Date: " & expDate
objEmail.TextBody = objEmail.TextBody & vbCrLf & "User Principal Name: " & userName
objEmail.TextBody = objEmail.TextBody & vbCrLf & "Certificate Template: " & cerTemplate

objEmail.Configuration.Fields.Item ("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/sendusing")[/URL] = 2
objEmail.Configuration.Fields.Item ("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/smtpserver")[/URL] = "mail.rand.org" 
objEmail.Configuration.Fields.Item ("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/smtpserverport")[/URL] = 25
objEmail.Configuration.Fields.Update
objEmail.Send

[red]End If[/red]
 
Upvote 0 Downvote
Actually, the first part if the code works like a charm.

Code: 
If Not objFSO.FileExists("D:\DATA\PKI\Expire\TempCert.txt") Then
objFSO.CreateTextFile("D:\DATA\PKI\Expire\TempCert.txt")
End If

Set objTempCert = objFSO.OpenTextFile("D:\DATA\PKI\Expire\TempCert.txt",2)

Set strCert = objFSO.OpenTextFile("D:\DATA\PKI\Expire\expiring_certificates.txt",1)
strArray = Split(strCert.ReadAll,vbCrLf)

For Each cert In strArray
If InStr(cert, "Issued Request ID:") Then
    reqID = Trim(Split(cert,":")(1))
      objTempCert.WriteLine "Issued Request ID: " & reqID
  
  ElseIf InStr(cert, "Certificate Expiration Date:") Then
    expDate = Trim(Split(cert,":")(1))
      objTempCert.WriteLine "Certificate Expiration Date: " & expDate
  
  ElseIf InStr(cert, "User Principal Name:") Then
    userName = Trim(Split(cert,":")(1))
      objTempCert.WriteLine "User Principal Name: " & userName
  
  ElseIf InStr(cert, "Certificate Template:") Then
    cerTemplate = Trim(Split(cert,":")(1))
      objTempCert.WriteLine "Certificate Template: " & cerTemplate & vbCrLf
  
End If
reqID = "": expDate = "": userName = "": cerTemplate = ""

Next
strCert.Close

It's the second part involving the email that is not working. I modified the code as suggested and it is sending me about 100 none of which have all the info. This one is killing me. It almost seems like i need to pull the info from the newly created textfile and do something similar to this. Can't figure out how though. I actually tried this (modified) and all of the information was echo'd correctly

Do Until objTextFile.AtEndOfStream
strNextLine = objTextFile.Readline
arrServiceList = Split(strNextLine , ",")
Wscript.Echo "Server name: " & arrServiceList(0)
For i = 1 to Ubound(arrServiceList)
Wscript.Echo "Service: " & arrServiceList(i)
Next
Loop
 
Upvote 0 Downvote
Maybe this will help. Here's the text file I'm pulling the info from.

Code: 
Issued Request ID: 0x3b9 (953)
Certificate Expiration Date: 3/13/2009 1
User Principal Name: EMPTY
Certificate Template: "CAExchange"

Issued Request ID: 0x172 (370)
Certificate Expiration Date: 3/15/2009 7
User Principal Name: EMPTY
Certificate Template: "DomainController"

Issued Request ID: 0x282 (642)
Certificate Expiration Date: 3/18/2009 9
User Principal Name: "philmickelson@rand.org"
Certificate Template: "EFS"

Issued Request ID: 0x176 (374)
Certificate Expiration Date: 3/20/2009 4
User Principal Name: EMPTY
Certificate Template: "DomainController"

Issued Request ID: 0x177 (375)
Certificate Expiration Date: 3/20/2009 7
User Principal Name: EMPTY
Certificate Template: "DomainController"

Issued Request ID: 0x283 (643)
Certificate Expiration Date: 3/21/2009 9
User Principal Name: "dc3.rand.org"
Certificate Template: "DomainController"

Issued Request ID: 0x284 (644)
Certificate Expiration Date: 3/21/2009 3
User Principal Name: "jacknicholas@rand.org"
Certificate Template: "EFS"

Issued Request ID: 0x286 (646)
Certificate Expiration Date: 3/28/2009 9
User Principal Name: "arnoldpalmer@rand.org"
Certificate Template: "EFS"

Issued Request ID: 0x287 (647)
Certificate Expiration Date: 4/2/2009 8
User Principal Name: "dc2.rand.org"
Certificate Template: "DomainController"

Issued Request ID: 0x288 (648)
Certificate Expiration Date: 4/2/2009 8
User Principal Name: "garyplayer@rand.org"
Certificate Template: "EFS"

Issued Request ID: 0x18c (396)
Certificate Expiration Date: 4/2/2009 10
User Principal Name: EMPTY
Certificate Template: "WebServer"

Issued Request ID: 0x18d (397)
Certificate Expiration Date: 4/2/2009 1
User Principal Name: EMPTY
Certificate Template: "WebServer"

Issued Request ID: 0x18e (398)
Certificate Expiration Date: 4/2/2009 1
User Principal Name: EMPTY
Certificate Template: "WebServer"

Issued Request ID: 0x18f (399)
Certificate Expiration Date: 4/2/2009 1
User Principal Name: EMPTY
Certificate Template: "WebServer"

Issued Request ID: 0x289 (649)
Certificate Expiration Date: 4/2/2009 10
User Principal Name: "dc1.rand.org"
Certificate Template: "DomainController"

Issued Request ID: 0x18a (394)
Certificate Expiration Date: 4/3/2009 9
User Principal Name: EMPTY
Certificate Template: "WebServer"

Issued Request ID: 0x190 (400)
Certificate Expiration Date: 4/3/2009 9
User Principal Name: EMPTY
Certificate Template: "WebServer"

Issued Request ID: 0x18b (395)
Certificate Expiration Date: 4/3/2009 10
User Principal Name: EMPTY
Certificate Template: "WebServer"

Issued Request ID: 0x28a (650)
Certificate Expiration Date: 4/3/2009 10
User Principal Name: "tigerwoods@rand.org"
Certificate Template: "EFS"

Issued Request ID: 0x28b (651)
Certificate Expiration Date: 4/7/2009 5
User Principal Name: "samsneed@rand.org"
Certificate Template: "User"
 
Upvote 0 Downvote
gmagerr,
thought my reply would point you in the correct direction.
you need to fill your vars first then if one is not empty do your cdo code. not a fan of cdo i use blat.exe for emailing.
your if/elseif.../then structure will fire on the last else bieing filled, iirc.
remove the cdo code from your if/else... loop.
populate your vars then ceck to see if any are filled. if any are then call you cdo code.
regards,
longhair.
ps if you search on blat, you should see examples that i have previously pposted.
regards,
longhair
 
Upvote 0 Downvote
longhair
I did what you suggested and replied. I was only getting one variable with anything, and that was the cerTemplate, i moved the if logic around and put userName at the bottom and then the variable returned the username.
 
Upvote 0 Downvote
gmagerr,
as withanh and i said it seems to be a logic issue.
forget about if/elseif..
do specific it/then statements.
elseif will only return the last true value, iirc.
you need to read and store each value, then if any of the values are present do something.
if the msgbox only shows tha value of the last 'if' call then nothing is getting appended.
regards,
longhair
 
Upvote 0 Downvote
ok, Well now I am able to see all of the variables populated using wscript.echo the problem now is, it's only showing the last entry in the text file, so my first guess is another loop. Here's the code, any ideas? Thanks

Code: 
'==========================================================================
' 
' NAME: 
' 
' AUTHOR: Gene Magerr
' EMAIL: genemagerr@hotmail.com
'
' COMMENT: 
'
' You have a royalty-free right to use, modify, reproduce, and
' distribute this script file in any way you find useful, provided that
' you agree that the creator, owner above has no warranty, obligations,
' or liability for such use.
'
' VERSION HISTORY:
' 1.0   xx/xx/xxxx  Initial release
'
'==========================================================================
'Option Explicit

'==========================================================================
' VARIABLE DECLARATIONS
'==========================================================================
Dim objShell, objNetwork, objFSO

Set objShell = CreateObject("WScript.Shell")
Set objNetwork = WScript.CreateObject("WScript.Network")
Set objFSO = CreateObject("Scripting.FilesystemObject")
Set objEmail = CreateObject("CDO.Message")
'==========================================================================
' STATIC VARIABLE ASSIGNMENTS
'==========================================================================
Const FOR_READING = 1, FOR_WRITING = 2, FOR_APPENDING = 8

'==========================================================================
' MAIN SCRIPT CODE
'==========================================================================
If Not objFSO.FileExists("D:\DATA\PKI\Expire\TempCert.txt") Then
objFSO.CreateTextFile("D:\DATA\PKI\Expire\TempCert.txt")
End If

Set objTempCert = objFSO.OpenTextFile("D:\DATA\PKI\Expire\TempCert.txt",2)

Set strCert = objFSO.OpenTextFile("D:\DATA\PKI\Expire\expiring_certificates.txt",1)
strArray = Split(strCert.ReadAll,vbCrLf)

For Each cert In strArray
If InStr(cert, "Issued Request ID:") Then
    reqID = Trim(Split(cert,":")(1))
  	objTempCert.WriteLine "Issued Request ID: " & reqID
  
  ElseIf InStr(cert, "Certificate Expiration Date:") Then
    expDate = Trim(Split(cert,":")(1))
  	objTempCert.WriteLine "Certificate Expiration Date: " & expDate
  
  ElseIf InStr(cert, "User Principal Name:") Then
    userName = Trim(Split(cert,":")(1))
  	objTempCert.WriteLine "User Principal Name: " & userName
  
  ElseIf InStr(cert, "Certificate Template:") Then
    cerTemplate = Trim(Split(cert,":")(1))
  	objTempCert.WriteLine "Certificate Template: " & cerTemplate & vbCrLf
  
End If
reqID = "": expDate = "": userName = "": cerTemplate = ""

Next
strCert.Close

Set strCertSend = objFSO.OpenTextFile("D:\DATA\PKI\Expire\TempCert.txt",1)
strArraySend = Split(strCertSend.ReadAll,vbCrLf)

For Each certsend In strArraySend
  If InStr(certsend, "Issued Request ID:") Then
    reqID = Trim(Split(certsend,":")(1))
  End If
    
  If InStr(certsend, "Certificate Expiration Date:") Then
    expDate = Trim(Split(certsend,":")(1))
  End If
    
  If InStr(certsend, "User Principal Name:") Then
    userName = Trim(Split(certsend,":")(1))
  End If  
  
  If InStr(certsend, "Certificate Template:") Then
    cerTemplate = Trim(Split(certsend,":")(1))
  End if
Next 

objEmail.From = "gmagerr@rand.org"
objEmail.To = "gmagerr@rand.org"
objEmail.Subject = "Cert Test"

objEmail.TextBody = ("CertTest") & vbCrLf
 
objEmail.TextBody = objEmail.TextBody  & "Issued Request ID: " & reqID & vbCrLf &_
"Certificate Expiration Date: " & expDate & vbCrLf &_
"User Principal Name: " & userName & vbCrLf &_
"Certificate Template: " & cerTemplate & vbCrLf

WScript.Echo objEmail.TextBody

'objEmail.TextBody = objEmail.TextBody & vbCrLf & "Certificate Expiration Date: " & expDate
'objEmail.TextBody = objEmail.TextBody & vbCrLf & "User Principal Name: " & userName
'objEmail.TextBody = objEmail.TextBody & vbCrLf & "Certificate Template: " & cerTemplate

'objEmail.Configuration.Fields.Item ("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/sendusing")[/URL] = 2
'objEmail.Configuration.Fields.Item ("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/smtpserver")[/URL] = "mail.rand.org" 
'objEmail.Configuration.Fields.Item ("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/smtpserverport")[/URL] = 25
'objEmail.Configuration.Fields.Update
'objEmail.Send

'End If
reqID = "": expDate = "": userName = "": cerTemplate = ""
objEmail.TextBody = ""

'next
strCertSend.Close

'==========================================================================
' SUBS AND FUNCTIONS
'==========================================================================
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

spamjim
  • Locked
  • Question
Setting height and width for an image in an Outlook email signature
Replies
0
Views
159
spamjim
spamjim
elly00
  • Locked
  • Question
error opening email
Replies
2
Views
168
elly00
elly00
si_file
  • Locked
  • Question
hi, can someone help me with this runtime error? 1
Replies
1
Views
195
strongm
strongm
i_malc
  • Locked
  • Question
Sending email attachment
Replies
2
Views
700
strongm
strongm
Dr. Waqas Ali
  • Locked
  • Question
Can someone help me to convert this .bat code into VBScript ?
Replies
2
Views
198
mikrom
mikrom

Part and Inventory Search

Sponsor

Back
Top