Når jeg sender kopiere celler til mail følger billeder ikke med??
Hej Eksperter,Jeg har en mail funktion i VB hvor jeg markerer en range og isætter det i en ny mail hvor jeg så bare skal trykke "send". Mit problem er at jeg rigtig gerne vil have isat et billede og når jeg så kopiere over til mailen så skal det så følge med. Har prøvet google i timevis uden held.
Herunder er min kode - håber der er en der kan gennemskue den.
pft.!
Sub test()
Dim rng As Range
Dim OutApp As Object
Dim OutMail As Object
Dim Subject, modtager, getrow, kundeREF As String
ScreenUpdate
showMail
getrow = ActiveCell.row
If getrow > 8 Then
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
Set rng = Nothing
On Error Resume Next
If Range("Mail!BJ64").value = "MIO til slutfortoldning" Then
Set rng = Sheets("Mail").Range("BP70:BU83").SpecialCells(xlCellTypeVisible)
Subject = Range("Mail!BQ68").value
Else
If Range("Mail!BJ64").value = "Midlertidig oplæggelse (MIO)" Then
Set rng = Sheets("Mail").Range("BX70:CC91").SpecialCells(xlCellTypeVisible)
Subject = Range("Mail!BY68").value
Else
Set rng = Sheets("Mail").Range("BH70:BM91").SpecialCells(xlCellTypeVisible)
Subject = Range("Mail!BI68").value
End If
End If
On Error GoTo 0
If rng Is Nothing Then
MsgBox "The selection is not a range or the sheet is protected" & _
vbNewLine & "please correct and try again.", vbOKOnly
Exit Sub
End If
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
modtager = Range("Mail!BJ65").value
With OutMail
.TO = modtager
.CC = ""
.BCC = ""
.Subject = Subject
.HTMLBody = RangetoHTML(rng)
.Display
End With
On Error GoTo 0
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
Set OutMail = Nothing
Set OutApp = Nothing
Else
MsgBox "Du har ikke valgt en valid række, prøv igen."
End If
End Sub
