udtrække emailadresser

Så vidt jeg ved er der kun "The hard way"

Jeg tror, at det her er lige hvad du har brug for
http://www.eksperten.dk/spm/381377

Hvor skal de trækkes ud til ?
En tekstfil, Excelark, database eller ... ?

GHvis du kan tilpasse din visning således at du kan se den faktiske email de er sendt fra, så kan du markere alle de mails du vil trække data udfra, og herefter trække dem over i eksempelvis et Excel ark. Så har du en af kollonerne der indeholder mail addr.

VH CK

Du kan exportere mappen til en CSV fil, under
File -> Import and Export -> Export to a file
    -> Comma Separated Values (Windows)

Du vælger derefter "Map Custom Fields", og udvælger "From (Address).
Der bliver så dannet en CSV fil som du kan indlæse og redigere i f.eks. Excel.

Alternativt kunne man lave en makro, der gjorde det hele automatisk, men det kræver at du har CDO biblioteket installeret på din maskine. Hvilket man har hvis man kører Outlook over en Exchange server.

Som en lille kommentar til blackadder: Det er ikke givet at du har CDO installeret selvom Outlook kører op imod en Exchange Server. Desuden så kan du sagtens lave en makro der kan trække mail addr. ud uden brug af CDO...

VH CK

kedde65 >> Hvordan vil du gøre det uden CDO ?

Jeg kunne iøvrigt godt installere CDO på min egen maskine selvom jeg kun kører Outlook 2002.

Jeg ville sætte en reference til Outlook og bruge Outlooks objekt hieraki. CDO skal du kun bruge hvis du er udenfor Office programmerne, eksempel i en server serviec eller et website...

VH CK

Det er vist ikke muligt at få adgang til selve mail adressen igennem objektmodellen så vidt jeg kan se.

Her er der et eksempel på hvordan man gør det uden CDO:

Sub test()
    Dim fld As MAPIFolder, item As MailItem
    Set fld = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
   
    For Each item In fld.Items
        MsgBox item.SenderEmailAddress
    Next
End Sub

VH CK

Jeg får en run-time error 438 - "Object doesn't support this property or method"

hvad linie?

MsgBox item.SenderEmailAddress

Sorry - det er fordi jeg kører Outlook 2003. I 2002 og bagud der findes den ikke, men man kan vha. følgende script gøre det lidt af en omvej :-)

Sub test()
    Dim fld As MAPIFolder, item As MailItem, replyMail As MailItem
    Set fld = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
   
    For Each item In fld.Items
        Set replyMail = item.Reply
       
        MsgBox replyMail.Recipients.item(1).Address
       
        Set replyMail = Nothing
    Next
End Sub

Eneste problem er bare at Reply-to adressen ikke altid er den samme som afsenderadressen  :-)

Nej det er rigtigt, men det er som regel altid replyto addressen man skal sende den tilbage til, så faktisk ville denne løsning sikre at man altid sendte til den mail addresse som afsenderen havde "bedt om"

VH CK

Hej! beklager jeg først kommer på nu. Jeg ville bare lige høre, hvad siger musmus. Egentlig synes jeg, at min løsning med export direkte til en excel fil, som jeg henviste til igår, er den hurtigste, men det kommer jo an på, hvad musmus siger. Tja, det var bare det jeg ville sige.

Her er mit svar fra det henviste spørgsmål: I stedet for at lave en samlet mail, skal de så bare bruges som brevflet (måske)

Den nemmeste måde at gøre det på, er at exportere dine mail-oplysninger til en excelfil.(du exporterer hele mappen med dine besvarelser)

Derefter markerer du den kolonne, hvor afsender står i.

Kopierer og sætter adresserne ind i en mail. Enten i To feltet (her kan alle se alle) eller i Bcc (blind cabon copy) her kan ingen se hvem det ellers er sendt til. Tryk på knappen der tjekker mailadresserne, og de kommer til at stå pænt. (jeg har xp, så jeg kan ikke tjekke i 2000).
Er du i tvivl om hvordan du exporterer, så kom tilbage igen.