Hi JBSoccerbrit,
The community discussions I mentioned are talking about the ways on how to add attachments to email messages. sdruker uses the following code for this:
Public Function SendEmail(mFrom, mTo, mSubject, mBody, mAttachment)
Dim i, schema, mConfig, mMessage, mAttach
Err.Clear
On Error Resume Next
schema = "http://schemas.microsoft.com/cdo/configuration/"
Set mConfig = Sys.OleObject("CDO.Configuration")
mConfig.Fields.Item(schema + "sendusing") = 2 ' cdoSendUsingPort
mConfig.Fields.Item(schema + "smtpserver") = "SMTP server" '
'mConfig.Fields.Item(schema + "smtpserver") = "ServerName" ' SMTP server
mConfig.Fields.Item(schema + "smtpserverport") = 25 ' Port number
mConfig.Fields.Item(schema + "smtpauthenticate") = 1 ' Authentication mechanism
' mConfig.Fields.Item(schema + "sendusername") = "" ' User name (if needed)
' mConfig.Fields.Item(schema + "sendpassword") = "" ' User password (if needed)
mConfig.Fields.Update
Set mMessage = Sys.OleObject("CDO.Message")
mMessage.Configuration = mConfig
mMessage.MimeFormatted=true
mMessage.From = mFrom
mMessage.To = mTo
mMessage.Subject = mSubject
mMessage.HTMLBody = mBody
aqString.ListSeparator = ","
For i = 0 To aqString.GetListLength(mAttachment) - 1
mMessage.AddAttachment aqString.GetListItem(mAttachment, i)
mMessage.Attachments.Item(1).ContentMediaType="application/octet-stream"
Next
mMessage.Send()
If Err.Number > 0 Then
Log.Error "E-mail cannot be sent", Err.Description
SendEMail = False
Else
Log.Message "Message to <" + mTo + "> was successfully sent"
SendEMail = True
End If
End Function
If you want to attach the current test log, you will need to save it first. For this, you can use the Log.SaveResultsAs method. Please refer to the "SaveResultsAs method" article ( http://support.smartbear.com/viewarticle/75301/ ) for more information.
Does it clarify the situation?