Avatar billede cms2 Nybegynder
27. februar 2003 - 17:20 Der er 8 kommentarer og
1 løsning

Ét ark i en mappe sendt som vedhæftet fil

Hej eksperter

Mangler noget kode der kan assignes til
en knap på et ark, men sende et andet
ark i samme mappe som
vedhæftet fil i Outlook.
Avatar billede jkrons Professor
27. februar 2003 - 17:55 #1
Jeg mener ikke at du kan sende et enkelt ark fra en mappe som vedhæftet fil. Og hvis du gemmer/sletter arket med knappen, kan du ikke bruge den :-(

Men nogen har måske en god idé.
Avatar billede cms2 Nybegynder
27. februar 2003 - 18:35 #2
I menuen "filer" findes punktet "Send til"
Det har jeg brugt til nu, har bare ikke evnen
til at skrive kode der kan udføre dette menu item.
Avatar billede jkrons Professor
27. februar 2003 - 18:39 #3
Jo, jeg kender funktionen og kan sagtens skrive kode til den, men den sender hele mappen, ikke kun et enkelt ark. Hvordan nøjes du med at sende et enkelt ark?
Avatar billede cms2 Nybegynder
27. februar 2003 - 19:08 #4
Beklager jeg ikke er bedre til at forklare mig.
Når jeg klikker på "Send til" får jeg mulighed for "send dette ark".
Men er nok forkert at sige det er vedhæftet, mener MS kalder det
som "meddelelsestekst". Det opfylder formålet, beklager jeg kom til at
kalde det vedhæftet. (Skal sige jeg har Office XP)
Avatar billede hcars Novice
18. marts 2003 - 18:24 #5
Ikke for at være morsom (kom sq først til at skrive mormom), nå:
men man kan jo altså nemt kopiere et ark over i en risk mappe, navngive den og sende den som vedhæftet.
Hvordan det skulle kodes uden denne lille omvej, ved jeg ikke.
=|:-}
Avatar billede hcars Novice
20. marts 2003 - 10:54 #6
Hvis du benytter denne makro, vil der blive gemt oveni den samme fil hele tiden, så du slipper for at slette.

Sub NyMappe()
'
' NyMappe Makro
' Makro indspillet 20-03-03 af Carsten Hansen
'

'
    Sheets("NumeroDos").Select
    Sheets("NumeroDos").Name = "NumeroDos"
    Sheets("NumeroDos").Select
    Sheets("NumeroDos").Copy
    ActiveWorkbook.SaveAs FileName:="C:\CH\NumeroDos.xls", FileFormat:=xlNormal _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
End Sub
Avatar billede cms2 Nybegynder
20. marts 2003 - 16:50 #7
Øh ja.

Men har jo stadig ikke sendt nogen e-mail
Avatar billede kabbak Professor
19. april 2003 - 23:10 #8
Skift arknavnet ud med det ark du vil sende.

Sub Makro1()

    Sheets("Ark3").Select
    Sheets("Ark3").Copy
    Application.Dialogs(xlDialogSendMail).Show
    ActiveWindow.Close
End Sub
Avatar billede cms2 Nybegynder
22. april 2003 - 19:51 #9
Mange tak
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester