Navigation

   Uanset hvad jeg gør, så kan jeg ikke få denne macro til at kun at tage specifikke (dog dynamiske) celler og sende i en email.

Jeg har reference mail i A1 og den bliver ved med at klippe denne med
(Denne er bare en test, men i den vil informationerne heller ikke skulle tages fra toppen, så løsningen er ikke bare at flytte det hele op og mail referencen ned)

uploads/2704/Send_email.xlsm

Koden

Sub esendtable()
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 = Sheet1.Range("A1").Text
    .CC = ""
    .BCC = ""
    .Subject = "Personoplysninger"
    .Body = "Jvf. aftale er her oplysninger" & vbCrLf & "Venlig hilsen Kim"
    .display
    Set xInspect = newEmail.GetInspector
    Set pageEditor = xInspect.WordEditor
    'Sheet1.Range("B2:E5").Copy
    Sheet1.Range("A2").CurrentRegion.Copy
    pageEditor.Application.Selection.Start = Len(.Body)
    pageEditor.Application.Selection.End = pageEditor.Application.Selection.Start
    pageEditor.Application.Selection.PasteAndFormat (wdFormatPlainText)
    .display
    '.Send
    Set pageEditor = Nothing
    Set xInspect = Nothing
End With
Set newEmail = Nothing
Set outlook = Nothing
End Sub

Navigation

Fejl i kode - 'Send mail fra excel'