Invalid Cast Ex in SendMail

[Rocketdawg]

Hi Everyone

I'm having a bit of trouble getting a routine to work and I can't quite figure out whats wrong. It keeps throwing an 'invalid cast exception'. Any ideas? Thanks,

Cdog

Sub SendMailProcessing()
        Dim myMessage As New MailMessage
        Dim str As New StringBuilder
        Dim StylePath As String = Session("MyStylePath") 'path to an uploaded pic
        Dim PicturePath As String = Session("MyPicturePath")'path to an uploaded pic
 
        MyList = Session("List")
 
        'build the body of the email
        str.Append("First Name: " & MyList("First_Name") & ControlChars.CrLf)
        str.Append("Last Name: " & MyList("Last_Name") & ControlChars.CrLf)
        str.Append("Address: " & MyList("Address") & ControlChars.CrLf)
        str.Append("Apartment Number: " & MyList("Apt") & ControlChars.CrLf)
        str.Append("City: " & MyList("City") & ControlChars.CrLf)
        str.Append("State: " & MyList("State") & ControlChars.CrLf)
        str.Append("Zip: " & MyList("Zip") & ControlChars.CrLf)
        str.Append("Phone: " & MyList("Phone") & ControlChars.CrLf)
        str.Append("Email: " & MyList("Email") & ControlChars.CrLf & ControlChars.CrLf)
        str.Append("BaseColor: " & MyList("Base_Color") & ControlChars.CrLf)
        str.Append("Hair Type: " & MyList("Hair_Type") & ControlChars.CrLf)
        str.Append("Wave Type: " & MyList("Wave_Type") & ControlChars.CrLf)
        str.Append("Front to back measurement: " & MyList("Front_to_Back_Measurement") & ControlChars.CrLf)
        str.Append("Side to side measurement: " & MyList("Side_to_Side_Measurement") & ControlChars.CrLf)
        str.Append("Top Length: " & MyList("Top_Length") & ControlChars.CrLf)
        str.Append("Front_Length: " & MyList("Front_Length") & ControlChars.CrLf)
        str.Append("Side Length: " & MyList("Side_Length") & ControlChars.CrLf)
        str.Append("Back Length: " & MyList("Back_Length") & ControlChars.CrLf & ControlChars.CrLf)
        str.Append("Special Instructions: " & MyList("Special_Instructions") & ControlChars.CrLf)
        With myMessage
            .To = "[email protected]"
            .From = MyList("Email")
            .Subject = "Incoming Order"
            .Body = str.ToString
            .BodyFormat = MailFormat.Text
            If StylePath <> "" Then
                .Attachments.Add(StylePath)
            End If
            If PicturePath <> "" Then
                .Attachments.Add(PicturePath)
            End If
        End With
 
        SmtpMail.Send(myMessage)
 
    End Sub

[wild_bill]

Which line throws the exception?

[Rocketdawg]

Wild Bill

Here's what shows up:

Source Error: 
 
 
Line 149:        End With
Line 150:
[COLOR=DarkRed]Line 151:        SmtpMail.Send(myMessage)[/COLOR]
Line 152:        lblMessage.Text = "Mail has been sent"
Line 153:    End Sub
 
Source File: ####.aspx    Line: 151 
 
Stack Trace: 
 
 
[InvalidCastException: Specified cast is not valid.]
   System.Web.Mail.CdoSysHelper.Send(MailMessage message) +769
   System.Web.Mail.SmtpMail.Send(MailMessage message) +153

Thanks!

Cdog

[Rocketdawg]

After 3 beers and 2 pots of coffee -->

Oops....

strFolder = "temps/" 'my original goofy line in my upload sub 
  strFolder = Server.MapPath("temps/") 'changed it to this

And added these to the SendMail:

Dim oAttch1 As MailAttachment = New MailAttachment(StylePath)
        Dim oAttch2 As MailAttachment = New MailAttachment(PicturePath)

And it seems to be happy goodnight

Cdog