Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Sende Mail fra Access via outlook

2 views
Skip to first unread message

Peter

unread,
Sep 22, 2009, 5:22:37 PM9/22/09
to
Hej

Er der nogle der ligger inde med en stykke kode til at man kan få
access til at sende mail.

Hilsen

Peter

Jan Bachman

unread,
Sep 23, 2009, 2:17:50 AM9/23/09
to
On Tue, 22 Sep 2009 14:22:37 -0700 (PDT), Peter
<pb-co...@get2net.dk> wrote:

>Hej
>
>Er der nogle der ligger inde med en stykke kode til at man kan f�


>access til at sende mail.
>
>Hilsen
>
>Peter

Selve koden er ikke s� kompliceret. Registrer Outlook under
referencer, s� objekterne kendes. Her er et groft eksempel.
Drillerierne opst�r i sidste linie. Sikkerhedsindstillinger i
Outlook/Windows vil helt sikkert blokere for afsendelse, og bede
brugeren bekr�fte handlingen.

Dim o As Outlook.Application
Dim m As Outlook.MailItem

Set o = New Outlook.Application
Set m = o.CreateItem(olMailItem)

m.Recipients.add "x@y.z"
m.Subject = "ditten"
m.Body = "datten"
m.Send

Gert Krabsen

unread,
Sep 23, 2009, 3:26:07 AM9/23/09
to
Jan Bachman skrev:


Og hvad s�, hvis der ikke er installeret Outlook p� brugerens PC?
..den slags findes endnu :-)


Jan Bachman

unread,
Sep 23, 2009, 12:15:56 PM9/23/09
to
On Wed, 23 Sep 2009 09:26:07 +0200, Gert Krabsen
<fjernk...@fjernkrabsenfjern.dk> wrote:

>Og hvad s�, hvis der ikke er installeret Outlook p� brugerens PC?
>..den slags findes endnu :-)

Nu st�r der "Sende mail fra Access via Outlook" i subject :-)

Men der er selvf�lgelig andre muligheder, f.eks. CDO-objektet.

/Jan

Gert Krabsen

unread,
Sep 23, 2009, 4:16:07 PM9/23/09
to
Jan Bachman skrev:

> On Wed, 23 Sep 2009 09:26:07 +0200, Gert Krabsen
> <fjernk...@fjernkrabsenfjern.dk> wrote:
>
>> Og hvad s�, hvis der ikke er installeret Outlook p� brugerens PC?
>> ..den slags findes endnu :-)
>
> Nu st�r der "Sende mail fra Access via Outlook" i subject :-)


Skal man nu osse til at l�se, inden man svarer!!

Helt urimelige krav at stille :-))

Peter

unread,
Sep 25, 2009, 3:55:11 AM9/25/09
to
On 23 Sep., 08:17, Jan Bachman <ja...@davs.du> wrote:
> On Tue, 22 Sep 2009 14:22:37 -0700 (PDT), Peter
>
> <pb-cons...@get2net.dk> wrote:
> >Hej
>
> >Er der nogle der ligger inde med en stykke kode til at man kan få

> >access til at sende mail.
>
> >Hilsen
>
> >Peter
>
> Selve koden er ikke så kompliceret. Registrer Outlook under
> referencer, så objekterne kendes. Her er et groft eksempel.
> Drillerierne opstår i sidste linie. Sikkerhedsindstillinger i

> Outlook/Windows vil helt sikkert blokere for afsendelse, og bede
> brugeren bekræfte handlingen.

>
> Dim o As Outlook.Application
> Dim m As Outlook.MailItem
>
> Set o = New Outlook.Application
> Set m = o.CreateItem(olMailItem)
>
> m.Recipients.add "x...@y.z"

> m.Subject = "ditten"
> m.Body = "datten"
> m.Send

Hvor finder jeg det sted, hvor referencer skal registres.

Hilsen

Peter

Peter

unread,
Sep 25, 2009, 4:04:27 AM9/25/09
to
On 23 Sep., 08:17, Jan Bachman <ja...@davs.du> wrote:
> On Tue, 22 Sep 2009 14:22:37 -0700 (PDT), Peter
>
> <pb-cons...@get2net.dk> wrote:
> >Hej
>
> >Er der nogle der ligger inde med en stykke kode til at man kan få

> >access til at sende mail.
>
> >Hilsen
>
> >Peter
>
> Selve koden er ikke så kompliceret. Registrer Outlook under
> referencer, så objekterne kendes. Her er et groft eksempel.
> Drillerierne opstår i sidste linie. Sikkerhedsindstillinger i

> Outlook/Windows vil helt sikkert blokere for afsendelse, og bede
> brugeren bekræfte handlingen.

>
> Dim o As Outlook.Application
> Dim m As Outlook.MailItem
>
> Set o = New Outlook.Application
> Set m = o.CreateItem(olMailItem)
>
> m.Recipients.add "x...@y.z"

> m.Subject = "ditten"
> m.Body = "datten"
> m.Send

Hej

Jeg fandt ud af det, den køre nu.

Hilsen

Peter

0 new messages