Søg
Avatar billede Morten Nybegynder
22. juli 2003 - 14:51 Der er 4 kommentarer og
1 løsning

Sende mails fra Excel - igen igen

Hej igen

Har fundet følgende kode hos Guruen J. Walkenbach, men har selv prøvet at rette den til så jeg kan få en vedhæftet fil med - men det vil den ikke - nogen som kan greje koden for dette. Alt det andet virker, den sender noget så smukt men der kommer altså ikke noget Attachment med - tror enten det er Navnet der er forkert eller rækkefølgen???:

Recipient = strMail
Subj = "Ordre nr.: " & rRng(x, intOrderRow) & _
" (Forh.nr.: " & r1Rng(getRow("strforhNr", "R"), getRow("strforhNr", "C")) & ")"
Msg = "Ordre nr.: " & rRng(x, intOrderRow) & " - " & rRng(x, intDataRow)
               
      Hlink = "mailto:" & Recipient & "?"
      Hlink = Hlink & "subject=" & Subj & "&"
      Hlink = Hlink & "attachments=" & tmpWbPath & "&"
      Hlink = Hlink & "body=" & Msg
             
      ActiveWorkbook.FollowHyperlink (Hlink)
      Application.Wait (Now + TimeValue("0:00:02"))
      SendKeys "%s", True
Avatar billede Morten Nybegynder
22. juli 2003 - 14:55 #1
Og kan det lade sige gøre i det hele taget?
Avatar billede bak Forsker
22. juli 2003 - 15:38 #2
Er det den active workbook du vil sende eller er det flere ?
Avatar billede bak Forsker
22. juli 2003 - 15:45 #3
Denne her sender den aktive, men den har været vist her før....

Sub Send_post()
subj = "Ordre nr.: " & rRng(x, intOrderRow) & _
" (Forh.nr.: " & r1Rng(getRow("strforhNr", "R"), getRow("strforhNr", "C")) & ")"

If Application.MailSystem <> xlNoMailSystem Then
      ActiveWorkbook.SendMail _
            Recipients:=strMail, _
            Subject:=subj

            Application.MailLogoff
Else
      MsgBox "Inget Microsoft postsystem  installeret.", vbInformation, _
      "Postmeddelelse"
End If
End Sub
Avatar billede Morten Nybegynder
22. juli 2003 - 15:58 #4
jeps - har fundet løsningen - kommer her i morgen...

Mangler du lige kode for hvordan man tjekker om det er Outlook eller Outlook Express som brugeren benytter - har set det et eller andet sted, leder og vender tilbage med den færdige kode i morgen

Grunden til at jeg skal tjekke hvilken det er, at jeg bruger sendkeys og det er forskelligt i de to programer hvilke keys der skal sendes...
Avatar billede Morten Nybegynder
17. september 2003 - 09:29 #5
lukker
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
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Flytte fra et projekt til andet Af hkprofil i Excel 1 11/11/202612:17 11/11/202613:08
Slet tal, bevar de underliggende formler Af bbkdk i Excel 7 11/11/202609:23 24 minutter siden
Måned og år på graf Af mort1 i Excel 4 31/10/202613:01 01/11/202614:13
VB, Lægge 2 celler sammen og skrive den i cellen ved side af Af MC3390 i Excel 9 23/09/202618:11 24/09/202611:16
Ændre tal i en celle Af xvid i Excel 1 04/09/202616:05 04/09/202616:54
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 08:39 Produktnøgle Af hkv i Office & Kontorpakker
I går 16:59 Bitlocker Af nico i Windows
12/1116:30 Wlan i windows 11 home Af dcedata1977 i Windows
11/1121:19 Irriterende ikon på proceslinjen Af ErikHg i Windows
11/1116:33 Kan man slippe af med "msn" ? Af Ikke-ekspert i Windows
White papers
Flere white papers »