Compile error: "End With without With"

[GizmoL]

Hi Guys ,

Could you please help me in correcting the below MACRO?
Wenrning it, I am getting a compile error: "End With without With" message.
Thanks a mill


' email Macro

Set oOutlook =CreateObject("Outlook.Application")
Set oNameSpace =oOutlook.GetNameSpace("MAPI")
oNameSpace.Logon , , True
ans = MsgBox("Are you sure youwish to send this email?", vbYesNo)
If (ans = vbYes) Then
Set MItem = oOutlook.CreateItem(0)
With MItem
.To = Range("C4").Value
.Subject = Range("C7").Value
.Body = Range("C6").Value
If (.Range("B8").Value <>"") Then
.Attachments.AddRange("B8").Value
If (.Range("C8").Value <>"") Then
.Attachments.AddRange("C8").Value
If (.Range("D8").Value <>"") Then
.Attachments.AddRange("D8").Value
.Display
End With
End Sub

 

[Fluff]

Re: Compile error: "End With without With" - please HELP

Hi & welcome to MrExcel
You are in fact missing a number of End If lines.
Try

Set oOutlook = CreateObject("Outlook.Application")
Set oNameSpace = oOutlook.GetNameSpace("MAPI")
oNameSpace.Logon , , True
ans = MsgBox("Are you sure youwish to send this email?", vbYesNo)
If (ans = vbYes) Then
   Set MItem = oOutlook.CreateItem(0)
   With MItem
      .To = Range("C4").Value
      .Subject = Range("C7").Value
      .Body = Range("C6").Value
      If (.Range("B8").Value <> "") Then
         .Attachments.AddRange("B8").Value
      ElseIf (.Range("C8").Value <> "") Then
         .Attachments.AddRange("C8").Value
      ElseIf (.Range("D8").Value <> "") Then
         .Attachments.AddRange("D8").Value
      End If
      .Display
   End With
End If
End Sub

 

[GizmoL]

Re: Compile error: "End With without With" - please HELP

Thanks Fluff ,

I am now getting an run-time error '438' object doesn't support this property or method message

when I click on debug, it brings me to the below line and highlight it:
If (.Range("B8").Value <> "") Then

 

[DanteAmor]

Re: Compile error: "End With without With" - please HELP

Try this. It is recommended to use indentation to identify the structure of each statement

Sub test()
' email Macro


    Set oOutlook = CreateObject("Outlook.Application")
    Set oNameSpace = oOutlook.GetNameSpace("MAPI")
    oNameSpace.Logon , , True
    ans = MsgBox("Are you sureyou wish to send this email?", vbYesNo)
[COLOR=#0000ff]    If (ans = vbYes) Then[/COLOR]
        Set MItem = oOutlook.CreateItem(0)
        With MItem
            .To = Range("C4").Value
            .Subject = Range("C7").Value
            .Body = Range("C6").Value
            If Range("B8").Value <> "" Then .Attachments.Add Range("B8").Value
            If Range("C8").Value <> "" Then .Attachments.Add Range("C8").Value
            If Range("D8").Value <> "" Then .Attachments.Add Range("D8").Value
            .Display
        End With
[COLOR=#0000ff]    End If[/COLOR]
End Sub

 

[GizmoL]

Re: Compile error: "End With without With" - please HELP

Hi DanteAmor,

it worked.
Thanks a million
You made my day.

ps: I will use indentation going forward.

 

[DanteAmor]

Re: Compile error: "End With without With" - please HELP

I'm glad to help you. Thanks for the feedback.