Notifikationer

Markér alle som læst Log ud

ekman Nybegynder

25. april 2001 - 13:21 Der er 10 kommentarer og
1 løsning

Mailfunktion i Excelark

Jeg har lavet et ark hvor jeg vil en kommandoknap den funktion at den sender en mail (helst via Outlook. Er det muligt, eller er jeg helt på udebane her?

Synes godt om

ekman Nybegynder

25. april 2001 - 13:23 #1

Mailen skal forresten indeholde et et excel ark som vedhæftet

Synes godt om

janvogt Praktikant

25. april 2001 - 13:36 #2

Ja, det er muligt, brug følgende rutine:

Sub Test()
Dim eMail As String
eMail = Worksheets(\"Sheet1\").Range(\"A1\")
ActiveWorkbook.SendMail Recipients:=eMail
End Sub

Den forudsætter, at mailadressen står i celle A1.

Synes godt om

ekman Nybegynder

25. april 2001 - 13:47 #3

Hej Jan

Jeg har lidt knas med det. Jeg får følgende besked \"Kørselsfejl \"1004\" :

Metoden \'SendMail for objektet \'_Workbook\' mislykkedes\"

Hvad mener den med det?

Synes godt om

janvogt Praktikant

25. april 2001 - 13:54 #4

Har du e-mail adressen til at stå i celle A1 på Ark1?
Er Outlook valgt, som mail-program?

Synes godt om

ekman Nybegynder

25. april 2001 - 13:57 #5

Ja og Nej! Jeg har adressen i A1, men her hvor jeg laver arket bruger jeg Notes - Men, dem der skal bruge programmet har Outlook!

Synes godt om

janvogt Praktikant

25. april 2001 - 14:27 #6

Det virker fint hos mig!

Har du kopieret koden ned i et modul?

Det gøres sådan:
Tryk ALT+F11
Vælg indsæt modul.
Dobbeltklik på det fremkomne modul og sæt koden ind.
Gå tilbage til Excel-arket.
Tryk ALT+F8 og kør makroen \"test\".

Synes godt om

ekman Nybegynder

25. april 2001 - 14:37 #7

Jeg bliver ved med at få den samme besked. - Kan det have noget at gøre med at jeg køre Excel 97??

Synes godt om

janvogt Praktikant

25. april 2001 - 15:19 #8

Næ, det gør jeg også!
Har du mulighed for at teste det fra en computer, som er sat op til Outlook?

Synes godt om

ekman Nybegynder

25. april 2001 - 15:21 #9

Først i aften! - Jeg vender tilbage

Synes godt om

janvogt Praktikant

25. april 2001 - 18:07 #10

Prøv evt. denne lidt mere enkle form. Det SKAL virke!

Sub Test()
ActiveWorkbook.SendMail Recipients:=\"jan_vogt_hansen@hotmail.com\"
End Sub

Synes godt om

ekman Nybegynder

25. april 2001 - 20:20 #11

Hej Jan

Det kører som smurt. Enkelt og effektivt! Helt Suverent

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Se alle it-kurser fra Computerworld Kurser

IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Se alle it-kurser

Flere spørgsmål fra Office & Kontorpakker kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Google sheets beregning udfra dato Af rickiegrayholm i Office & Kontorpakker	2	14/05/202623:24	15/05/202605:03
Back up af foto til ekstern harddisk Af hkprofil i Office & Kontorpakker	11	11/05/202610:48	12/05/202620:08
Kan ikke resette PC med Windows 8.1 Af TTA i Office & Kontorpakker	12	24/04/202617:35	26/04/202612:13
Outlook classic "hænger" når jeg vil åbne vedhæftede filer Af torzen i Office & Kontorpakker	0	16/04/202622:13	-
OneDrive kan ikke tilgås Af Perba i Office & Kontorpakker	19	13/04/202616:33	04/05/202611:48

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS