Kan ikke få markroen til at virke - email

-> har kigget lidt på denne side http://eksperten.dk/spm/383819 kan de to kædes sammen??? og hvorfor kan man ikke sende et markeret område med de rigtige række og kollone brede

umiddelbart bør koden virke - det er følgende linier som sender (eller bør sende) din mail:

        Application.Wait (Now + TimeValue("0:00:02"))
        Application.SendKeys "%s"

dem skal du altså også bruge - evt. ændre den tid du venter til måske 3 sekunder...

det ændre ikke noget...! jeg har office xp... har det noget at sige?
Findes der andre måder at skrive samme kode på?

Tror jeg har fundet fejlen... er scriptet ikke skrevet til Oulook Express??

det er korrekt! jeg har forresten en kode der virker i Outlook - hvis du er interesseret, skal jeg bare lige finde den!?

i VBA editoren,

Tools -> references -> sæt flueben i:
Microsoft Outlook Object library
Microsoft Outlook View control

og skriv følgende kode (med dine egne tilpasninger:

Sub Send_via_Outlook()

Dim olApp As Outlook.Application
Dim olNewMail As Outlook.MailItem
Dim szBodyTekst As String
Set olApp = New Outlook.Application
Set olNewMail = CreateItem(olMailItem)
Dim email As String

email = Cells(2, 2)

szBodyTekst = "DIN TEKST LINIE 1" & vbCr
szBodyTekst = szBodyTekst & "DIN TEKST LINIE 2" & vbCr
'OSV

With olNewMail
    .Recipients.Add email
    .Subject = "DIT EMNE"
    .Body = szBodyTekst
    .OriginatorDeliveryReportRequested = True 'leveringsrapport
    .Display
    .Send
End With
Set olNewMail = Nothing
Set olApp = Nothing

End Sub

takker. hvis du vil have point så kom med et svar :-)

selvfølgelig vil jeg svare ;-)

PS: "Bedre sent, end aldrig..." :-)