Hej, jag har skickat mail med kod skriven i VBA under många år men nu verkar det hänt något hos Microsoft ?

Jag har ingen aning om vad men plötsligt går det inte längre att skicka mail !?!

Jag använder följande kod och har skrivit in alla de Referenser som behövs...

Sub SkickaMedOutlook()

    Dim oFolder As Outlook.MAPIFolder

    Dim oItem As Outlook.MailItem

    Dim oOutlook As New Outlook.Application

    Dim MoOutlook As Outlook.Namespace

    ChDir "H:\Inför styrelsemöten\2023\Utskick"

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

    "H:\Inför styrelsemöten\2023\Utskick\" & Namn & ".pdf", _

    Quality:=xlQualityStandard, _

    IncludeDocProperties:=True, _

    IgnorePrintAreas:=False, _

    OpenAfterPublish:=False

    Set MoOutlook = oOutlook.GetNamespace("MAPI")

    Set oFolder = MoOutlook.GetDefaultFolder(olFolderOutbox)

    Set oItem = oFolder.Items.Add(olMailItem)

    FilBilaga = "H:\Inför styrelsemöten\2023\Utskick\" & Namn & ".pdf"

    With oItem

        .Recipients.Add (EPostAdrs)

        .Subject = SvarsTexten

        .Body = "Hej " & Namn & ". " & Chr(10) & Chr(10) & TackTexten

        .Attachments.Add FilBilaga

        .Importance = olImportanceHigh

        .Send

    End With    

    Set oItem = Nothing

    Set oFolder = Nothing

End Sub

Är det något Microsoft ändrat så att jag inte längre kan använda den kod jag skrivit och använt under många många år ??

/fleXcel

 Hej och Tack för ditt Svar !

Vad jag har för version av Outlook vet jag inte men jag tror att det är "Nya" Outlook ??

Jag använder Excel och har skrivit in VBA-kod från en bok och koden har fungerat i ...10 år säkert !

Jag får inga som helst fellmeddelanden och jag ser inte heller att det finns något skickat i Outlook !

Och visst stegar jag koden med F8 och med F5 där jag sätter brytpunkter på vissa ställen...

Jag skall prova att använda den äldre versionen av Outlook nu när jag såg att jag använder den nya...

/fleXcel

Hej FleXcel,

Det var det jag misstänkte, därav frågorna "vilken" Outlook du använder samt om du nyligen uppgraderat.

Den nya Outlook a.k.a. "New Outlook" (grön menyrad) använder mycket av samma kodbas som den webbaserade Outlook och Outlook för Android och iOS. Den har inget stöd för COM Objektmodellen och därmed heller inget stöd för VBA.

Tyvärr verkar det som att Microsoft helt - eller åtminstone delvis - är på väg att fasa ut VBA till förmån för Office Script och annat som är plattformsoberoende och kan köras i en webbläsare. Så vi får se hur länge vi får behålla stöd för VBA i resten av Office-apparna...

Glad att jag kunde leda dig in på rätt felsökningsspår.

Hej fleXcel och en God Forsättning på Julen önskar jag dig också!

Problemet är antagligen detsamma som tidigare. Eftersom du antagligen vare sig ändrat din kod, bytt dator eller Officeversion så är det nog den nya Outlook som fortfarande "spökar" någonstans i bakgrunden.

Du kanske exempelvis fått ner en Officeuppdatering som ändrat din standardmailklient från Klassisk Outlook till den Nya Outlook. Eller så är det något annat i registret som ställer till det eftersom du redan aktiverat den Nya Outlook tidigare.

Testa och svara på följande saker:

• Har du den klassiska Outlook öppnad när du kör makrot?
• Om du ändrar metoden .Send till .Display vad händer då?
• Får du något felmeddelande isåfall vad?
• Om du har tillgång till en annan dator med Office (där du inte har använt "New Outlook") kan du testa ditt makro där?
• Avinstallera hela Officepaketet och installera om det.

Ett Gott Slut på 2023 önskar jag dig!