Sub SendActiveArk() ' sender det ark som er aktiveret ActiveSheet.Copy Application.Dialogs(xlDialogSendMail).Show ActiveWindow.Close SaveChanges:=False End Sub
Sub SendActiveArk() ' sender det ark som er aktiveret ActiveSheet.Copy ActiveWorkbook.SendMail "Anders@And.com", "dette er en test af subjectfeltet" ActiveWorkbook.Close SaveChanges:=False End Sub
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.