e-mail via access

Benytte samme programmer men dog Outlook Express som standard. Har du prøvet at skifte standard mail-program?

En indstilling af et antivirus program kan forhindre afsendelse af e-mail fra andre programmer. Men så burde du ikke kunne sende fra Excel.

Må vi se den kode du benytter.

Hej mugs.
Oprindelig brugte jeg outlook express, men skiftede til outlook for at se om det løste problemet. Jeg har ikke lavet noget kode endnu, blot lavet en  makro med sendobject for at se om det virkede. vis jeg konverterer makroen til et modul, så ser den sådan ud :

Option Compare Database

'------------------------------------------------------------
' makro2_hj
'
'------------------------------------------------------------
Function makro2_hj()
On Error GoTo makro2_hj_Err

    DoCmd.SendObject , " ", "", "hans.jensen@tiscali.dk", "", "", "adr-kar", "sendt fra access", False, ""
    Beep
    MsgBox "e-mail er afsendt", vbExclamation, "NB ! NB!"


makro2_hj_Exit:
    Exit Function

makro2_hj_Err:
    MsgBox Error$
    Resume makro2_hj_Exit

End Function

Hej igen

Jeg har afprøvet koden og den fungerer perfekt i OutLook Express.
Prøv at fejlfinde i dit antivirus program, om der her skulle være en blokering for afsendelse af e-mail fra .mdb filer. Jeg har dog aldrig hørt om det, men kun at afsendelse fra alle programmer er blokeret

Jeg har slået firewall fra, deaktiveret Norton antivirus og internet security, men problemet er stadig det samme ?????????

Hej mugs.
Var det Access 2000 og Outlook2000 du prøvede på

Ja. Vil du have filen tilsendt - så læg din e-mail.

Bruger selv Norton - No problemos.

Evt. kan du prøve at sende mig din fil:

mugs@mail.dk

Husk at zippe den.

ja, tak.      e-mail: rie.blok@tiscali.dk

Sendt.

Du kan klare det helt uden outlook, hvis du har adgang til en SMTP-server der kan relay'e. Det afhænger lidt af din udbyder.

Denne kode er i VBScript (til ASP), men den kan skrives om til VBA:

'Create the e-mail object
Set objCDOSYSMail = CreateObject("CDO.Message")
Set objCDOSYSCon = CreateObject ("CDO.Configuration")
'Outgoing SMTP server
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "myserver"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objCDOSYSCon.Fields.Update

'Update the CDOSYS Configuration
Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = "afsender@mail.dk"
objCDOSYSMail.To = "modtager@mail.dk"
objCDOSYSMail.Subject = "Emne"
objCDOSYSMail.HTMLBody = "Mail i <b>HTML</b> her."
objCDOSYSMail.Send

'Close the server mail object
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing

Fundet her:
http://www.access-programmers.co.uk/forums/showthread.php?p=428600#post428600

svar til mugs: jeg har scannet computeren. Den er ikke inficeret

Kan det være noget med opsætningen i Access ell. Outlook

Det mente jeg heller ikke, men i opsætningen kan der være en blokering. I mit Norton kan jeg sætte om den tillader andre programmer at sende. Men så burde du jo heller ikke sende fra Excel. Jeg har aldrig hørt om en sådan blokering i Access.

Nu ser det ud til at virke efter jeg fandt på at opdatere med office software-pakker. Tak for indsatsen

Selv tak og tak for point. Ja - Den årsag havde jeg aldrig gættet :o)