Avatar billede Kroaen Juniormester
24. januar 2020 - 08:03 Der er 2 kommentarer

Hjælp til run time error 4605 og 91

Hej alle,

Jeg har lavet en Macro der kopiere en range af celler med formatering ind i en mail den opretter.
Men jeg får, nogen gange, en af 2 fejl. Disse fejl vil jeg gerne have elimineret.

Den ene fejl hedder
"Run-time error '4605' - Denne metode eller egenskab er ikke tilgængelig, da dokumentet er låst mod redigering"

Når jeg trykker debug, highlighter den, denne linje:
pageEditor.Application.Selection.PasteAndFormat (wdFormatOriginalFormatting)

Den anden fejl hedder:
"Run-time error '91' - Object variable or With block variable not set

Når jeg trykker debug, highlighter den, denne linje:
pageEditor.Application.Selection.Start = Len(.Body)


Makroen kommer her:
Sub Sendmailkl14()

response = MsgBox("KL. 14:00    Er du sikker på at du vil oprette mailen?", vbYesNo)

If response = vbNo Then
    MsgBox ("Mail ej sendt")
    Exit Sub
End If

Dim outlook As Object
Dim newEmail As Object
Dim xInspect As Object
Dim pageEditor As Object

Set outlook = CreateObject("Outlook.Application")
Set newEmail = outlook.CreateItem(0)

With newEmail
    .To = ""
    .CC = ""
    .BCC = Worksheets("Data ark - KODE").Range("C29").Text
    .Subject = "Forventet salg kl. 14"
    .Body = "I nedenstående finder i det forventet salg, til produktion " & Worksheets("Mail Forsøg").Range("A2") & vbCrLf & "Aarhus og Odense er udelukkende det nuværende salg" & vbCrLf & vbCrLf & "Ved spørgsmål, kontakt venligst afsender"
    .Display


    Set xInspect = newEmail.GetInspector
    Set pageEditor = xInspect.WordEditor

Application.Wait (Now + TimeValue("00:00:02"))


    Worksheets("Mail Forsøg").Range("A2:G6").Copy

    pageEditor.Application.Selection.Start = Len(.Body)
    pageEditor.Application.Selection.End = pageEditor.Application.Selection.Start
    pageEditor.Application.Selection.PasteAndFormat (wdFormatOriginalFormatting)
    .Display
    Set pageEditor = Nothing
    Set xInspect = Nothing
End With

Set newEmail = Nothing
Set outlook = Nothing

End Sub
Avatar billede KHN Guru
24. januar 2020 - 12:35 #1
Avatar billede Kroaen Juniormester
24. januar 2020 - 12:44 #2
Kan jeg desværre ikke. :-(
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester