---

Hejsa

Er det ikke muligt at sende en mail via Outlook (Express) via Delphi,
uden at man behøver at trykke på send i selve O(E)?

Jeg skal bruge det i forbindelse med noget automatisering,
hvor der skal sendes en mail når denne er forgået.

Det skal bruges på mit arb., hvor vi kører med Outlook,
og jeg har ikke direkte adgang til serveren, så det skal forgå
via Outlook, desværre..

Håber nogen har en ide til hvad jeg evt. kan gøre,
selvfølgelig kan man lave det så den åbner vinduet på
normalvis, og så sende et <ALT> S for at sende, men
det må kunne laves smartere.

Mvh Hauge

---

Hvis du bruger Delphi 5 burde du ha' en tab på komponent-paletten, der
hedder "Servers"....
På denne er der nogle Outlook ting, som jeg mener kan gøre det....
Det er noget med at Outlook applikation kan kreere et eller andet
outlook-mail-object, eller sådan noget....
Så er det ellers bare at fylde data i, og sende det....
Så er det op til outlook at få afleveret din mail, så det kommer så lidt an
på hvordan Outlook er sat op....

Lars

"Hauge" <hauge@CUThrcnet.dk> wrote in message
news:96ojoc.a4.1@CUThrcnet.dk...
> Hejsa
>
> Er det ikke muligt at sende en mail via Outlook (Express) via Delphi,
> uden at man behøver at trykke på send i selve O(E)?
>
> Jeg skal bruge det i forbindelse med noget automatisering,
> hvor der skal sendes en mail når denne er forgået.
>
> Det skal bruges på mit arb., hvor vi kører med Outlook,
> og jeg har ikke direkte adgang til serveren, så det skal forgå
> via Outlook, desværre..
>
> Håber nogen har en ide til hvad jeg evt. kan gøre,
> selvfølgelig kan man lave det så den åbner vinduet på
> normalvis, og så sende et <ALT> S for at sende, men
> det må kunne laves smartere.
>
> Mvh Hauge
>
>

---

Prøv at kigge rundt på nettet efter komponenter. Der må da være et, der kan
gøre det for dig.

Har ikke lige nogen specifik URL - bare en idé :)

"Hauge" <hauge@CUThrcnet.dk> wrote in message
news:96ojoc.a4.1@CUThrcnet.dk...
> Hejsa
>
> Er det ikke muligt at sende en mail via Outlook (Express) via Delphi,
> uden at man behøver at trykke på send i selve O(E)?
>
> Jeg skal bruge det i forbindelse med noget automatisering,
> hvor der skal sendes en mail når denne er forgået.
>
> Det skal bruges på mit arb., hvor vi kører med Outlook,
> og jeg har ikke direkte adgang til serveren, så det skal forgå
> via Outlook, desværre..
>
> Håber nogen har en ide til hvad jeg evt. kan gøre,
> selvfølgelig kan man lave det så den åbner vinduet på
> normalvis, og så sende et <ALT> S for at sende, men
> det må kunne laves smartere.
>
> Mvh Hauge
>
>

---

Hej.
"Hauge" <hauge@CUThrcnet.dk> skrev i en meddelelse
news:96ojoc.a4.1@CUThrcnet.dk...
>...
Hva' med

procedure TForm1.Button1Click(Sender: TObject);
var
osession, omessage, orecip: variant;
begin
osession := CreateOleObject('MSMAPI.MAPISession');
omessage := CreateOleObject('MSMAPI.MapiMessages');
osession.SignOn;
omessage.SessionID := osession.SessionID;
omessage.Compose;
omessage.MsgSubject := 'Outlook Expres automation';
omessage.MsgNotetext := 'It is Work!';
omessage.RecipAddress := 'someone@out.there';
omessage.AttachmentIndex := 0;
omessage.AttachmentPathName := 'c:\autoexec.bat';
omessage.Send(0);
osession.SignOff;
end;

Det har jeg fået til at virke.
Kræver muligvis Win98 og IE 5-> og MAPI OCX'en installeret.

/Jan [JPSoft]