email attachments

[MattB]

I'm trying to enable attaching a file to an email that is sent by my asp.net
application. The email works fine without an attachment, but when I add a
file using the following code:

Dim newMail As New Mail.MailMessage

newMail.To = strTo

newMail.From = ConfigurationSettings.AppSettings("MailFromAddr")

newMail.Subject = strSubj

newMail.Body = strbody

Dim attachment As New MailAttachment(aAttachments(i))

newMail.Attachments.Add(aAttachments(i))

SmtpMail.SmtpServer = ConfigurationSettings.AppSettings("SMTPServer")

Try

SmtpMail.Send(newMail)

Return True

Catch ex As Exception

'copy message to string for debugging - not really used anywhere

Dim strMessage As String = ex.Message

Return False

End Try

---------------------

The mail fails to send and the exception is "Specified cast is not valid".
Since this only happens when there is an attachment present, it seems that;s
the problem. Do I need to encode the attachment first or something? I was
under the impression that it would happen automatically, but that's probably
where I'm wrong. Can anyone tell me how this should work? Thanks!

Matt

[MattB]

Thanks. I realized I had been passing the string that was the path to the
file when I tried to attach instead of the object created from thatstring in
the provious line. Now it works. Yay!

Joao S Cardoso [MVP] wrote:

Try this:

Public Shared Function SendEmail(ByVal cFrom As String, ByVal cTo
As String, ByVal cCC As String, ByVal cSubject As String, ByVal cBody
As String, Optional ByVal cAttach1 As String = "", Optional ByVal
cAttach2 As String = "", Optional ByVal tMailFormat As MailFormat =
MailFormat.Text) As Boolean Dim oMailObject As New MailMessage
Dim iListAttach As Collections.IList
Dim oMailAttach1 As MailAttachment
Dim oMailAttach2 As MailAttachment

oMailObject.From = cFrom
oMailObject.To = cTo
oMailObject.Cc = cCC
oMailObject.Subject = cSubject
oMailObject.Body = cBody & vbNewLine
oMailObject.BodyFormat = tMailFormat

If cAttach1.Trim.Length > 0 Then
oMailAttach1 = New MailAttachment(cAttach1,
MailEncoding.UUEncode)
oMailObject.Attachments.Add(oMailAttach1) End If
If cAttach2.Trim.Length > 0 Then
oMailAttach2 = New MailAttachment(cAttach2,
MailEncoding.UUEncode)
oMailObject.Attachments.Add(oMailAttach2) End If

SmtpMail.SmtpServer = "127.0.0.1"
SmtpMail.Send(oMailObject)

oMailObject = Nothing

End Function

Cumprimentos / Regards

Joao Cardoso (MVP dotNET)
================================================== =====
Visite os grupos de discussão portugueses:
microsoft.public.pt.vsnet
microsoft.public.pt.dotnet
microsoft.public.pt.*

[LusoCoders]- http://groups.yahoo.com/group/lusocoders/
[PontoNetPT]- http://www.pontonetpt.com
jj***@acinet.pt.n.o-s.p-a.m - www.acinet.pt
================================================== =====