makro til at besvare + læse mail

Det kan du ret hurtigt vha. guiden regler i menuen Funktioner.

tak for svaret.......men det kan jeg ikke rigtig bruge til noget.

Jeg skal bruge en MAKRO. Jeg er på nuværende tidspunkt kommet så langt som at kunne besvare den i indbakken markerede mail, kopiere de første 25 tegn i den mail jeg besvarer og sætte det ind som subjekt i svarmailen.

Det eneste jeg behøver hjælp til nu er:

Hvordan læser jeg den første linie, i stedet for de første 25 tegn af den mail jeg besvarer?
Min kode indtil videre er herunder:
-----------------------------------------
    Dim mailItem As mailItem
    Dim replyMail As mailItem
    Dim bdy As String
    Set mailItem = Application.ActiveExplorer.Selection.Item(1)
    Set replyMail = mailItem.Reply
    With replyMail
        'bdy = vbCrLf & vbCrLf & vbCrLf
        'bdy = bdy & "-------------oprindelig medelelse---------------" & vbCrLf & vbCrLf
        'bdy = bdy & mailItem.body
        bdy = bdy & mailItem.body
        .Subject = Left$(bdy, 25) 'HER LÆSER JEG DE FØRSTE 25 TEGN
                                  'JEG ØNSKER I STEDET AT LÆSE FØRST LINIE
        .SentOnBehalfOfName = "mig@dot.dk"
        .body = bdy
    End With
    replyMail.Display
------------------------------------------------

Her er løsningen på dit problem :-)

Sub test()
    Dim lf As Integer
    Dim mailItem As mailItem
    Dim replyMail As mailItem
    Dim bdy As String
    Set mailItem = Application.ActiveExplorer.Selection.Item(1)
    Set replyMail = mailItem.Reply
    With replyMail
        bdy = bdy & mailItem.Body
        lf = InStr(1, bdy, vbCrLf)
        .Subject = Left(bdy, lf)
        .SentOnBehalfOfName = "mig@dot.dk"
        .Body = bdy
    End With
    replyMail.Display

End Sub

VH CK

Kunne du bruge svaret til noget?

VH CK

Tak for det! ;o)