I have a "Runtime error 440 : The object not support this method" in my macro

[MiyagiZama]

Hello mates, hope youre fine!

When I try to run my macro in VBA, appers a pop up that says "Runtime error 440 : The object not support this method" , due to Im a newbie in this area I have not idea how to fix it, here it is the code and an screenshot of the VBA error

Sub combinacioncodigo()
'
' Declaramos variables
'
Dim OutlookApp As Outlook.Application
Dim MItem As Outlook.MailItem
Dim cell As Range
Dim Asunto As String
Dim BOL As String
Dim Msg As String
'
' Seleccionamos el rango de celdas a enviar Select
'
ActiveSheet.Range("A1:M42").Select
'
'
  ActiveWorkbook.EnvelopeVisible = True
'
'
'Asignamos valor a las variables y llamamos al envio
'
'
With ActiveSheet.MailEnvelope
       .Item.To = ThisWorkbook.Sheets("ReporteFinal").Range("O3:O4").Value
       .Item.cc = ThisWorkbook.Sheets("ReporteFinal").Range("O7").Value
       '.Item.bcc = “Some email address”   'con copia oculta a...
       .Item.Subject = "Programacion Linea: "
    BOL = Format(ThisWorkbook.Sheets("BOL").Range("B3").Value, "#,##0")
        FechaVencimiento = Format(ThisWorkbook.Sheets("BOL").Range("C3").Value, "dd/mmm/yyyy")
       
        End With
        '
        'Cuerpo del mensaje
        '
        Msg = "Apreciables colegas, espero que se encuentren excelente el dia de hoy. " & vbNewLine & vbNewLine & vbNewLine & vbNewLine
        Msg = Msg & "El motivo de este correo es para informarle que tiene material en BOL desde el: "
        Msg = Msg & FechaVencimiento & "." & vbNewLine & vbNewLine & vbNewLine & vbNewLine
        Msg = Msg & "Favor de apoyarnos con el plan para disminuir el numero de estas piezas: "
        Msg = Msg & BOL & vbNewLine & vbNewLine
        Msg = Msg & "Atentamente:" & vbNewLine
        Msg = Msg & "Departamento de programacion" & vbNewLine & vbNewLine & vbNewLine
        Msg = Msg & "ESTO ES UNA PRUEBA FAVOR DE OMITIR"
        '
        Set MItem = OutlookApp.CreateItem(olMailItem)
        With MItem
            .Body = Msg
            .Send
            '
        End With
End Sub

Thnx for your help!

 

[Joe4]

Welcome to the Board!

I don't think you can have a multi-cell range in that argument.

Does this work?

.Item.To = ThisWorkbook.Sheets("ReporteFinal").Range("O3").Value & "," & ThisWorkbook.Sheets("ReporteFinal").Range("O4").Value

 

[MiyagiZama]

Welcome to the Board!

I don't think you can have a multi-cell range in that argument.

Does this work?

.Item.To = ThisWorkbook.Sheets("ReporteFinal").Range("O3").Value & "," & ThisWorkbook.Sheets("ReporteFinal").Range("O4").Value

Yes it is, but in the final "with" funtion now appears the run time error 91, do you know what it means and how to fix it please?

 

[Joe4]

Not sure. Maybe try:

Set MItem = Application.CreateItem(olMailItem)

as shown here: Application.CreateItem method (Outlook)

 

[MiyagiZama]

Not sure. Maybe try:

Set MItem = Application.CreateItem(olMailItem)

as shown here: Application.CreateItem method (Outlook)

nope, it doesn't work :c , now apears this

 

[Joe4]

OK, I don't know then.
Sorry, I don't think I am able to help you with that error.