Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Opret ny bruger Opret ny bruger  Log ind Log ind


Excel til Outlook - Attachments.Add fejl

 Besvar Besvar
Forfatter
DanielHansen Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 22-09-2021
Land: Danmark
Status: Offline
Point: 2
Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér DanielHansen Citér  BesvarSvar Direkte link til dette indlæg Emne: Excel til Outlook - Attachments.Add fejl
    Sendt: 22-09-2021 kl. 13:18
Hej.

Jeg har lavet en makro, hvor der dannes en PDF ud fra mit ark, som så skal vedhæftes i en mail og sendes til specifikke modtagere.

Alle trinene fungerer egentlig som de skal, og kan også få sendt mails, såfremt jeg fjerne vedhæftningen.

Så selve mekanismen burde være rigtig. Og PDF bliver også oprettet korrekt, da jeg kan se den efterfølgende, selvom min makro laver en fejl og går i debug.

Min VBA ser således ud:

Sub SendWekomFileAsPDF()
' SendWekomFileAsPDF() Makro
    ActiveSheet.Unprotect
    Dim OutlookApp As Outlook.Application
    Dim emItem As Object
    Dim Recipient As String
    Dim Subject As String
    Dim Message As String
    Dim Fname As String
   
' Message details
    Recipient = Range("AA1") & ";" & Range("AA2") & ";" & Range("AA3")
    Subject = Range("P7") & "  -  " & Range("G15") & " " & Range("O15") & " - Wekom"
    Message = "Se venligst vedhæftede fil" & vbNewLine & vbNewLine & "Goods Receiving department"
    Fname = Range("P7") & " - " & Range("G15") & " - " & Range("O15") & ".pdf"
   
' Create PDF Attachment
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fname
   
' Create Outlook object
    Set OutlookApp = New Outlook.Application
   
' Create Email Item, Display or send it
    Set emItem = OutlookApp.CreateItem(olMailItem)
    With emItem
    .To = Recipient
    .CC = Range("AC1") & ";" & Range("AC2") & ";" & Range("AC3")
    .Subject = Subject
    .Body = Message
    .Attachments.Add Fname (Det er denne jeg får en fejl på - slettes denne linje, kører makroen uden problemer)
    '.Display
    .Send
    End With
    Set OutlookApp = Nothing
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Til top



Til top
Bjarnehansen Se dropdown
Platin bruger
Platin bruger
Avatar

Medlem: 20-11-2011
Land: DK
Status: Offline
Point: 4798
Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér Bjarnehansen Citér  BesvarSvar Direkte link til dette indlæg Sendt: 22-09-2021 kl. 21:14
hvad vis du sætter en () om fname
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK
Til top
DanielHansen Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 22-09-2021
Land: Danmark
Status: Offline
Point: 2
Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér DanielHansen Citér  BesvarSvar Direkte link til dette indlæg Sendt: 22-09-2021 kl. 21:41
Nej det ændrede desværre ingenting. Den skriver stadig ‘Denne fil blev ikke fundet. Kontrollér at den korrekte sti og det korrekte filnavn er angivet.’
Til top
 Besvar Besvar
  Del emne   

Skift forum Forum tilladelser Se dropdown

© 2010 - 2021 Dansk Regneark Forum - en del af Excel-regneark.dk