vedhæft åbent regneark til mail
Hej jeg har et regneark hvor jeg har en makro som kan oprette en brevskabelon i Outlook og sende den for mig, ved at trykke på en knap i arket.Jeg ønsker at tilføje en ny funktion, men ved ikke hvordan jeg få det løst. Jeg vil gerne have at den vedhæfter hele det regneark som jeg har åbent og aktiveret min send mail funktion fra til den mail som kommer frem. Hvordan gør dette smartes?
Her er den kode jeg bruger:
Sub SendBrevMakker()
On Error Resume Next
Dim olApp As New Outlook.Application
Dim olNewMail As Object
Dim Recep As String
Dim MsgTxt As String
Dim Varnavn As String
Dim varantal As Long
Set olApp = GetObject("Outlook.Application")
For i = 1 To 1
Recep = Worksheets("BrevMakker").Range("A" & i).Value
Varenavn = Worksheets("BrevMakker").Range("B" & i).Value
Overskrift = Worksheets("BrevMakker").Range("D" & i).Value
Tekst1 = Worksheets("BrevMakker").Range("E" & i).Value
Tekst2 = Worksheets("BrevMakker").Range("F" & i).Value
Tekst3 = Worksheets("BrevMakker").Range("G" & i).Value
Tekst4 = Worksheets("BrevMakker").Range("H" & i).Value
Tekst5 = Worksheets("BrevMakker").Range("I" & i).Value
MsgTxt = "<p style='font-family:Arial;font-size:15:font-weight:bold'>" & Overskrift & "</p>" & _
"<p style='font-family:Arial;font-size:15'>" & Tekst1 & "</p>" & _
"<p style='font-family:Arial;font-size:15'>" & Tekst2 & "</p>" & _
"<p style='font-family:Arial;font-size:15'>" & Tekst3 & "</p>" & _
"<p style='font-family:Arial;font-size:15'>" & Tekst4 & "</p>" & _
"<p style='font-family:Arial;font-size:15'>" & Tekst5 & "</p>"
Set olNewMail = CreateItem(olMailItem)
With olNewMail
.Recipients.Add Recep
.HTMLBody = MsgTxt
.Subject = Varenavn
.ReadReceiptRequested = False
.OriginatorDeliveryReportRequested = False
.Display
End With
Next i
End Sub
Håber der er nogen som kan hjælpe? :)
