Avatar billede steensommer Praktikant
30. august 2003 - 20:24 Der er 11 kommentarer og
1 løsning

E-mail fra Excel

Hej

Jeg ville gerne "kalde" default e-mail program fra en kommandoknap i excel vha vba og indsætte en mail-adresse som jeg har indsat. Hvorledes gøres det?
/Steen
Avatar billede mugs Novice
30. august 2003 - 20:27 #1
Se evt. har, eller benyt søgefunktionen. Der er kommer flere muligheder:

http://www.eksperten.dk/spm/373568
Avatar billede kabbak Professor
30. august 2003 - 22:35 #2
Skriv Email adressen i en celle, excel vil selv oversætte den, ved at skrive det med blå skrift og understreget.

når du klikker på den, åbnes mail automatisk, med modtagernavnet.
Avatar billede steensommer Praktikant
30. august 2003 - 22:37 #3
Det er meningen at den skal anvendes i en menulinie jeg selv har konstrueret.
Avatar billede bak Forsker
31. august 2003 - 22:15 #4
se lige om du kan bruge det sidste indlæg i spm
http://www.eksperten.dk/spm/394167
Avatar billede faithless Praktikant
01. september 2003 - 08:59 #5
Prøv denne linie:

Sub mail()

    Application.Dialogs(xlDialogSendMail).Show
End Sub
Avatar billede steensommer Praktikant
01. september 2003 - 09:40 #6
--> faithless. Det er jo egentlig den simple udgave jeg ledte efter MEN den vedhæfter også den projektmappe som den fungerer i og jeg skal på forhånd bestemme til hvilken mailadresse beskeden skal sendes.
Avatar billede faithless Praktikant
02. september 2003 - 11:07 #7
Den her virker fra outlook, men jeg ved ikke hvordan man kalder den i Excel.

Sub NyMail()
    Dim myOLApp As New Outlook.Application
    Dim myOLItem As Outlook.MailItem
    Set myOLItem = myOLApp.CreateItem(olMailItem)
       
    With myOLItem
        .To = "No@mail.com"
        .Subject = "Subject tekst"
        .Body = "Tekst i selve mailen."
        .Attachments.Add "J:\19211\Prioritet.xls", olByValue, 1, "Filnavn ;o]"
    End With
    myOLItem.Display
End Sub
Avatar billede steensommer Praktikant
02. september 2003 - 11:29 #8
--> faithless: Ovenstående virker sådan set fint MEN man er afhængig af at skulle anvende Outlook/outlook express. Hvis den ikke er opsat til at fungere kan programmet ikke finde: "Microsoft Outlook 10.0 ......" i VBA referencen og så er man ligevidt.
Det jeg gerne ville var at kalde "default" mailprogram (NB! ingen attachment).
Avatar billede bak Forsker
02. september 2003 - 14:12 #9
Du kunne gøre sådan
Skriv e-mailadressen i en celle.
I din makro selecter du cellen og trykker enter med sendkeys.
Eks.
Adressen står i C1

Sub test()
Range("c1").Select
SendKeys "{enter}"
End Sub
Avatar billede bak Forsker
02. september 2003 - 14:31 #10
eller
Sub test()
Range("c1").Hyperlinks(1).Follow
End Sub
Avatar billede steensommer Praktikant
02. september 2003 - 14:36 #11
--> Den sidste fungerede perfekt. Skide godt. Svar lige så får du point (hvis du har plads til flere :0)  )
Avatar billede bak Forsker
02. september 2003 - 16:14 #12
jeg tror ikke jeg har top på endnu :-) , men det betyder li'som ikke det samme mere....
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

IT-JOB

Politiets Efterretningstjeneste

Data engineer til PET

Riskpoint A/S (Riskpoint Solutions Limited)

Senior Developer