---

Folks i sommervarmen!

Roder lidt med Outlook 2000s objektmodel i VB6, som ved G.. ikke er
overskuelig, synes
jeg.

Jeg skal bruge e-mail-adressen på et MailItems afsender. Jeg kan finde:
[MailItem].SenderName - hvilket giver afsenderens navn i klar tekst (hvis
den findes)

....men jeg savner i den grad '[MailItem].SenderAddress' eller noget i den
retning, Hvor gemmer den sig?

--
mvh
Jens Vestergaard
www.railsoft.dk
--------
Indsæt v før snablen

---

Hej Jens,

Prøv denne

Dim myi As MailItem '
Dim myf As MAPIFolder
Dim nsp As NameSpace

Set nsp = Application.GetNamespace("MAPI")

Set myf = nsp.GetDefaultFolder(olFolderInbox)

Set myi = myf.Items.GetFirst

MsgBox nsp.CreateRecipient(myi.SenderName).AddressEntry.Address

mvh
Erik Svensen

"Jens Vestergaard" <j@railsoft.dk> wrote in message
news:3d352437$0$54747$edfadb0f@dspool01.news.tele.dk...
> Folks i sommervarmen!
>
> Roder lidt med Outlook 2000s objektmodel i VB6, som ved G.. ikke er
> overskuelig, synes
> jeg.
>
> Jeg skal bruge e-mail-adressen på et MailItems afsender. Jeg kan finde:
> [MailItem].SenderName - hvilket giver afsenderens navn i klar tekst (hvis
> den findes)
>
> ...men jeg savner i den grad '[MailItem].SenderAddress' eller noget i den
> retning, Hvor gemmer den sig?
>
> --
> mvh
> Jens Vestergaard
> www.railsoft.dk
> --------
> Indsæt v før snablen
>
>
>

---

"Erik Svensen" <es@a-ware.dk> skrev i en meddelelse
news:ah3bjg$4qv$1@sunsite.dk...
> Hej Jens,
>
> Prøv denne
[snip]
> MsgBox nsp.CreateRecipient(myi.SenderName).AddressEntry.Address
>

Nope - giver en 'ukendt fejl'. Sorry - ellers skal du ha' tak

Det ser også ud til fra syntaxen at dømme, at det kræver, at jeg som
modtager har vedkommende SenderName i min adressebog...? Oder?


--
mvh
Jens Vestergaard
www.railsoft.dk
--------
Indsæt v før snablen

---

Mon ikke disse vil hjælpe?

Dim objRecipients as Recipients
Set objRecipients = objItem.ReplyRecipients

--

mvh
© pre 2002


"Jens Vestergaard" <j@railsoft.dk> skrev i en meddelelse
news:3d3557a2$0$12716$edfadb0f@dspool01.news.tele.dk...
> "Erik Svensen" <es@a-ware.dk> skrev i en meddelelse
> news:ah3bjg$4qv$1@sunsite.dk...
> > Hej Jens,
> >
> > Prøv denne
> [snip]
> > MsgBox nsp.CreateRecipient(myi.SenderName).AddressEntry.Address
> >
>
> Nope - giver en 'ukendt fejl'. Sorry - ellers skal du ha' tak
>
> Det ser også ud til fra syntaxen at dømme, at det kræver, at jeg som
> modtager har vedkommende SenderName i min adressebog...? Oder?
>
>
> --
> mvh
> Jens Vestergaard
> www.railsoft.dk
> --------
> Indsæt v før snablen
>
>

---

"pre" <skriv.til@gruppen.dk> skrev i en meddelelse
news:3d35c796$0$46194$edfadb0f@dspool01.news.tele.dk...
> Mon ikke disse vil hjælpe?
>
> Dim objRecipients as Recipients
> Set objRecipients = objItem.ReplyRecipients
>

Hæ! tak for buddet, men objItem.ReplyRecipients.Count retunerer 0 på
samtlige de mails, jeg har prøvet på - mon ikke ReplyRecipients kun
indeholder en adresse, når der i den oprindelige mail er angivet en 'Reply
To', som er en anden end afsenderen?

--
mvh
Jens Vestergaard
www.railsoft.dk
--------
Indsæt v før snablen

---

"Jens Vestergaard" <j@railsoft.dk> skrev i en meddelelse
news:3d3670bb$0$54738$edfadb0f@dspool01.news.tele.dk...
> "pre" <skriv.til@gruppen.dk> skrev i en meddelelse
> news:3d35c796$0$46194$edfadb0f@dspool01.news.tele.dk...
> > Mon ikke disse vil hjælpe?
> >
> > Dim objRecipients as Recipients
> > Set objRecipients = objItem.ReplyRecipients
> >

Jeg har lavet min egen primitive workaround:
Jeg opretter et [MailItem].Reply og læser .Recipient(1).Address på det.

Man tak for diverse bud

--
mvh
Jens Vestergaard
www.railsoft.dk
--------
Indsæt v før snablen

---

Supplerende hjælper disse ikke en disse.

Det er som om Outlook ikke registrerer mailadressen som sådan, hvorimod
det er meget let at lægge en adresseret svarmail i Outbox. Godt nok
ligger alle mine mailvenner i adressebogen men hvis det er kan jeg
klippe nogle af linierne (som virker) fra en større makro.

--

mvh
© pre 2002



"pre" <skriv.til@gruppen.dk> skrev i en meddelelse
news:3d35c796$0$46194$edfadb0f@dspool01.news.tele.dk...
> Mon ikke disse vil hjælpe?
>
> Dim objRecipients as Recipients
> Set objRecipients = objItem.ReplyRecipients
>
> --
>
> mvh
> © pre 2002
>
>
> "Jens Vestergaard" <j@railsoft.dk> skrev i en meddelelse
> news:3d3557a2$0$12716$edfadb0f@dspool01.news.tele.dk...
> > "Erik Svensen" <es@a-ware.dk> skrev i en meddelelse
> > news:ah3bjg$4qv$1@sunsite.dk...
> > > Hej Jens,
> > >
> > > Prøv denne
> > [snip]
> > > MsgBox
nsp.CreateRecipient(myi.SenderName).AddressEntry.Address
> > >
> >
> > Nope - giver en 'ukendt fejl'. Sorry - ellers skal du ha' tak
> >
> > Det ser også ud til fra syntaxen at dømme, at det kræver, at jeg som
> > modtager har vedkommende SenderName i min adressebog...? Oder?
> >
> >
> > --
> > mvh
> > Jens Vestergaard
> > www.railsoft.dk
> > --------
> > Indsæt v før snablen
> >
> >
>
>