Avatar billede krogsager Nybegynder
02. august 2005 - 10:46 Der er 11 kommentarer og
1 løsning

Fortsættelse af: http://www.eksperten.dk/spm/635669

Jeg har levet en macro, som beskrevet i spørgsmål 635669

det virker også fint sålænge det håndteres af en PC med Win XP Prof, men ikke fra en PC med Win 2000 Prof.

Det som ikke fungerer er teksten i mail'en, som ikke bliver genereret.
Den finder fint "e-mail adressen", generer "Subject" linien correct, og sender mailen.



Macro'en ser således ud:

Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Sub SendEMail()
    Dim Email As String, Subj As String
    Dim Msg As String, URL As String
    Dim r As Integer, x As Double
    For r = 1 To 1 'data in rows A1-A15
'      Get the email address
        Email = Cells(r, 1)
       
'      Message subject
        Subj = "Text1: " & Cells(r, 2) & "Text2: " & Cells(r, 4) & ", " & Cells(r, 5)

'      Compose the message
        Msg = ""
        Msg = Msg & "Text3:" & vbCrLf
        Msg = Msg & "TextText" & vbCrLf & vbCrLf
        Msg = Msg & "Text1:" & vbCrLf
        Msg = Msg & Cells(r, 2).Text & vbCrLf & vbCrLf
        Msg = Msg & "Text4:" & vbCrLf
        Msg = Msg & Cells(r, 3).Text & vbCrLf & vbCrLf
        Msg = Msg & "Text5:" & vbCrLf
        Msg = Msg & Cells(r, 13).Text & vbCrLf & vbCrLf
        Msg = Msg & ""
       
'      --OG MERE TEXT GENERERET FRA CELLER !!!!!!!!!!!!!!!!
       
'      Replace spaces with %20 (hex)
        Subj = Application.WorksheetFunction.Substitute(Subj, " ", "%20")
        Msg = Application.WorksheetFunction.Substitute(Msg, " ", "%20")
               
'      Replace carriage returns with %0D%0A (hex)
        Msg = Application.WorksheetFunction.Substitute(Msg, vbCrLf, "%0D%0A")
'      Create the URL
        URL = "mailto:" & Email & "?subject=" & Subj & "&body=" & Msg
       
'      Execute the URL (start the email client)
        ShellExecute 0&, vbNullString, URL, vbNullString, vbNullString, vbNormalFocus

'      Wait two seconds before sending keystrokes
        Application.Wait (Now + TimeValue("0:00:04"))
        Application.SendKeys "%s"
    Next r
End Sub



GODE IDE'ER modtages meget gerne!
Avatar billede sjap Praktikant
02. august 2005 - 11:43 #1
Har ikke lige så meget tid lige nu, men har du kigget på

http://www.rondebruin.nl/mail/oebody.htm

Han giver et eksempel nederst, hvor det udføres på en lidt anden måde - måske virker det?
Avatar billede krogsager Nybegynder
03. august 2005 - 10:16 #2
sjap> Tak for tippet. Gik det hele igennem og afprøvede de forskellige metoder, uden held.
- MEN det som var galt var, at jeg i den fulde version, kopierede 3 celler til Subject. Det kan WP og Office 2003 håndtere, men tidligere versioner kan kun klare 2 celler fra arket til Subject.
Avatar billede bak Forsker
03. august 2005 - 13:36 #3
Benytter du Outlook Express eller MS Outlook fra officepakken ?
Avatar billede krogsager Nybegynder
03. august 2005 - 15:05 #4
MS Outlook !!
Avatar billede sjap Praktikant
03. august 2005 - 18:57 #5
krogsager > Jeg havde af en eller anden grund fået den opfattelse, at du ikke anvendte Outlook (ved ikke lige hvorfor, men det er for så vidt også lige meget). Jeg mener at hvis du bruger Outlook, så er der nogen andre funtioner tilgængelige direkte i din kode. Prøv f.eks. at se på en helt anden af rondebruin's sider, som faktisk omhandler Outlook:

http://www.rondebruin.nl/mail/folder3/row.htm
Avatar billede krogsager Nybegynder
04. august 2005 - 14:06 #6
sjap & bak > har faktisk fået e:mail delen til at fungere ved kun at sende to felter til "Subject". Nu virker det på alle udgaver af MS office og XP/Win2000.
Mit (pt) eneste tilbageværnede problem, er at nogle afdelinger har deres Security sat til højt, hvorfor de ikke får lov at køre makro'en.
Dvs. jeg skal i gang med noget "security certificate", ved i noget om det? Jeg vil gerne dele lidt points ud for links'en, så et svar lige.
Avatar billede sjap Praktikant
04. august 2005 - 19:41 #7
OK.

Jeg er ikke lige sikker, men bak ved vist noget om "security certificate", men det ser desværre ud til at han kun er på nettet på deltid i øjeblikket. Jeg prøver lige om jeg kan finde noget.
Avatar billede sjap Praktikant
04. august 2005 - 19:57 #8
Min hukommelse er åbenbart ikke specielt god i øjeblikket. Jeg kunne ikke finde noget fra bak, men til gengæld fandt jeg noget fra jkrons på

http://www.eksperten.dk/spm/497325

som han aldrig er blevet belønnet for. Måska kan du bruge det.
Avatar billede bak Forsker
09. august 2005 - 16:13 #9
sjap har fuldstændig ret. Jeg kan også huske at have skrevet noget, men kan heller ikke  finde det. :-)
jkrons's svar kan sagtens bruges..

Find Selfcert.exe i officebiblioteket
start den og indtast navn, så er den oprettet
i excels vba-editor under tools/Digital certificate vælger du den så.
gem regnearket og nu har den digital signatur.

Når andre åbner arket bliver de spurgt om de har tillid til certificatet og hvis de svarer Ja kan de for eftertiden åbne alle regneark som du har signeret uden at makroerne er deaktiverede og de kan køre med højt sikkerhedsniveau
Avatar billede sjap Praktikant
09. august 2005 - 16:52 #10
bak > Godt at se dig tilbage - selvom det er for lidt lave omdrejninger. Jeg mener også at jeg har skrevet noget smart om helligdage på et tidspunkt - det findes heller ikke mere. Jeg tror der er noget der hekset væk på et eller andet tidspunkt, da der var en masse problemer.
Avatar billede krogsager Nybegynder
10. august 2005 - 08:15 #11
bak & sjap > tak for guiden, nu kører det!
bak > svar lige, så vi kan få lukket :-)
Avatar billede bak Forsker
10. august 2005 - 09:54 #12
points går til sjap. Jeg ville bare kommentere :-)
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