Jeg har et område ("A8:N20") som jeg gerne vil have indholdet over i en variabel og så sendt via mail. Området indeholder noget tekst og nogle dropdown lister.
Den moderne arbejdsplads er i stigende grad afhængig af mødelokaler til at fremme samarbejde, men dette skift medfører også stigende sikkerhedsudfordringer.
Dim sExcelData Dim objOutlook Dim objMailItem Dim C As Range X = 0 Set objOutlook = CreateObject("Outlook.Application") Set objMailItem = objOutlook.CreateItem(olMailItem) For Each C In Range("A8:N20") sExcelData = sExcelData & C & " " Next
With objMailItem .To = "hrh@formula.dk" .Subject = "Excel mail" .body = sExcelData .Send End With
Set objOutlook = Nothing Set objMailItem = Nothing
Kan du bruge dette ??
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.