Automatisk afsendelse af mail

Et forslag:

Et worddokument med den nødvendige kode indlæses og minimeres ved opstart.

Koden indeholder bl.a. en OnTime funktion - når det ønskede tidspunkt indtræffer, dføres en automatisk afsendelse af en mail med den vedhft. fil og til den ønskede modtager.

MVH

Her er koden:

Rem Eksperten: AutoMail - konstrueret i Word97
Rem REFERENCEN "OutLookXX type Library" skal sættes - FUNKTIONER/TOOLS - i VisualBasic
Rem ==================================================================================
Const modtager = "pb@skivehs.dk"                    'modtager
Const emne = "Fremsendelse af AutoMail"            'emne
Const body = "Ifølge aftale"                        'evt. meddelelsestekst
Const vedhft = "d:\kandu\eksperten_automail.doc"    'sti+filnavn
Const afsendesKl = "08:46:00"                      'tidspunkt

Sub AutoOpen()
    Application.OnTime When:=afsendesKl, Name:="automail"
    Application.WindowState = wdWindowStateMinimize
End Sub
Sub AutoMail()
Dim mailApp, Namespace, nyMail, nyAtt
    Set mailApp = CreateObject("Outlook.Application")
    Set Namespace = mailApp.GetNamespace("MAPI")

    Set nyMail = mailApp.CreateItem(olMailItem)
    Set nymod = nyMail.Recipients
    nymod.Add modtager
    nyMail.Subject = emne
    nyMail.body = body
    Set nyAtt = nyMail.Attachments
    nyAtt.Add vedhft
    nyMail.send
   
    MsgBox ("Mailen er afsendt")
    ActiveDocument.Close
End Sub


MVH

>> Supertekst

Det ser spændende ud... Er ved at prøve det!!!

Rigtig godt - det virker jo umiddelbart, MEN jeg bliver mødt med 2 dialogbokse, hvor jeg skal trykke ja hver gang for at bekræfte:

1) At jeg vil give et program ret til at få adgang til Outlook i (1-10 min)
2) Jeg skal godkende at det ikke stammer fra en virus.

Måske kan man sætte noget Registry hack, der accepterer disse ting uden at jeg skal gøre noget aktivt.

Serveren kører Office 2003. Mail'en kører POP3 og ikke MAPI, det ved jeg ikke om betyder noget?


Jeg vedhæfter den simple kode her (jeg er IKKE VB haj):

Sub AutoOpen()
    Application.OnTime When:="13:37:00", Name:="automail"
    Application.WindowState = wdWindowStateMinimize
End Sub
Sub AutoMail()
Dim mailApp, Namespace, nyMail, nyAtt
    Set mailApp = CreateObject("Outlook.Application")
    Set Namespace = mailApp.GetNamespace("MAPI")

    Set nyMail = mailApp.CreateItem(olMailItem)
    Set nymod = nyMail.Recipients
    nymod.Add "js@stoman.dk"
    nyMail.Subject = "test"
    nyMail.body = "Ifølge aftale"
    Set nyAtt = nyMail.Attachments
    nyAtt.Add "c:\test.txt"
    nyMail.send
    ActiveDocument.Close
End Sub

Hvordan ser indstillingerne ud i Word under: Funktioner/Sikkerhed/begge faneblade?
Første faneblad - stilles til niveau 3

Jeg møder ikke tlsvarende meddelelser i office97

MVH

Prøv at indlægge den markerede linie <<<<<<<<- :

Sub AutoMail()
Dim mailApp, Namespace, nyMail, nyAtt
    Application.DisplayAlerts = wdAlertsNone    '<<<<<<<<<<<<<<<<<<<<<<<<<<<<
   
    Set mailApp = CreateObject("Outlook.Application")

måske...

MVH

Sorry - disse medd. kommer fra Outlook... Se venligst:

www.danprise.dk/billeder/Drawing1.gif
www.danprise.dk/billeder/Drawing2.gif

Jeg har dog prøvet at sætte sikkerhedsniveau til lav i både Outlook og Word... Hjalp ikke.

Mvh
Jan

Supertekst >> Desværre

Application.DisplayAlerts = wdAlertsNone

Virkede heller ikke.

Kunne man have udført den samme (ell. lign.) makro i Outlook?

Mvh
Jan

Hej Jan

Jeg skal på en XP-installation på mandag - så prøver jeg at eksperimentere lidt med lignende makro i OutLook.

MVH

Hej Supertekst!

Det lyder rigtig godt...

Mvh
Jan

Hej Jan

Desværre gav mit forsøg i mandags ikke noget resultat (endnu) - men så fik jeg en ide i går:

Kunne man anvende kalenderens mulighed for "gentagelse af en begivenhed" - det kan man tilsyneladende godt - men den vedhæftede fil bliver så ikke opdateret - med mindre man opdaterer, der hvor den gemmes i forbindelse med ovennævnte - hos mig:
c:\Windows\temp

MVH
Peter Braagaard (Supertekst)

Hvad med flg:

NET SEND {name | * | /DOMAIN[:name] | /USERS} message

Jeg tester det i morgen.

Hej Supertekst - skal vi lukke denne her. Du kan få points for indsatsen - læg et svar!

Du får et svar..