Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Kako poslati email sa atachom iz Accessa

[es] :: Access :: Kako poslati email sa atachom iz Accessa

[ Pregleda: 3750 | Odgovora: 6 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

glisoni
Goran Gligorić
Bečej

Član broj: 15245
Poruke: 9
*.rodicmb.co.yu



Profil

icon Kako poslati email sa atachom iz Accessa17.11.2003. u 12:09 - pre 217 meseci
Dakle, kako poslati email sa fajlom u prilogu iz Accessa. U pitanju XML datoteka koja sadrži dnevni izveštaj, koji se posle na drugoj mašini importuje i dalje obrađuje. Mail putuje kroz internet (nije u pitanju lokalna mreža).

Ima načina da se proziva Outlook, ali tu ima previše među koraka i kojekakvih klikanja po OK, a meni treba da se sasvim transaprentno odigra: čovek uradi izveštaj, konektuje se na net, pritisne taster, mail ode i to je to. Bez komplikovanja sa Outookom ili OE ili bilo čim.
 
Odgovor na temu

Goran Rakić
Beograd

Član broj: 999
Poruke: 3766

Sajt: blog.goranrakic.com


+125 Profil

icon Re: Kako poslati email sa atachom iz Accessa17.11.2003. u 12:20 - pre 217 meseci
napiši program koji koristi mail api i onda ga pozovi iz accessa
http://sr.libreoffice.org — slobodan kancelarijski paket, obrada teksta, tablice,
prezentacije, legalno bez troškova licenciranja
 
Odgovor na temu

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 3085
*.eqao.com



+79 Profil

icon Re: Kako poslati email sa atachom iz Accessa17.11.2003. u 14:08 - pre 217 meseci
Probaj ovo:

Function SndOtlkMsg(DisplayMsg As Boolean, Optional strAttachmentPath) As Boolean
'HARD CODED EXAMPLE
'To test this procedure, type the following line in the
'Debug window, and then press ENTER:
'SendOutlookMessage True, "C:\My Documents\Customers.txt"
'
'If Exchange scurity is troubling you, then:
'When warning about "Program Trying to acces Address Book" appears,
'select "Allow Access for 10 minutes (try more) and you will be OK - for 10 minutes
'Next message, "Someone trying to send the message" apparently can not
'be ignored, so press Yes when it appears
'

On Error GoTo ERROR_HANDLER:

Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
Dim objOutlookAttach As Outlook.Attachment

SndOtlkMsg = False

' Create the Outlook session.
Set objOutlook = CreateObject("Outlook.Application")

' Create the message.
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)

With objOutlookMsg
' Add the To recipient(s) to the message.
Set objOutlookRecip = .Recipients.Add("[email protected]")
objOutlookRecip.Type = olTo

' Add the CC recipient(s) to the message.
Set objOutlookRecip = .Recipients.Add("[email protected]")
objOutlookRecip.Type = olCC

' Add the BCC recipient(s) to the message.
Set objOutlookRecip = .Recipients.Add("[email protected]")
objOutlookRecip.Type = olBCC

' Set the Subject, Body, and Importance of the message.
.Subject = "This is an Automation test with Microsoft Outlook"
.Body = "This is the body of the message." & vbCrLf & vbCrLf
.Importance = olImportanceNormal '= olImportanceHigh 'High importance

' Add attachments to the message.
If Not IsMissing(strAttachmentPath) Then
Set objOutlookAttach = .Attachments.Add(strAttachmentPath)
End If

' Resolve each Recipient's name.
For Each objOutlookRecip In .Recipients
objOutlookRecip.Resolve
Next

' Should we display the message before sending?
If DisplayMsg Then
.Display
Else
.Save
.Send
End If
End With
SndOtlkMsg = True

EXIT_PROC:
On Error Resume Next
Set objOutlook = Nothing
Exit Function

ERROR_HANDLER:
Select Case Err
Case Else
SndOtlkMsg = False
MsgBox Prompt:=Err.Description, Title:="Error " & Err.Number & " in SndOtlkMsg()"
End Select
Resume EXIT_PROC:

End Function

Sve sto je hard kodirano moze da se prosledi kao funkcijski parametar (ako se prvo napise funkcija, naravno) i to je to. Ako na tvojoj mrezi deluje Exchange security patch, onda ce da te pita da lio zelis da dozvolis "tom i tom programu da aktivira Outlook", tu ti moze pomoci jedino tvoj sistem aministrator tako sto ce podesiti security settings za odredjene users, ali to je nezgodan posao i IT administratori to ne vole da rade. Sta ces, taman smo naucili kako da iz drugih aplikacija pozivamo Outlook, kad Microsoft odluci da je to opasno i na nivou Exchange servera pokvari celu stvar.

Ima i drugih resenja, sa CDO i CDONT bibliotekama, ali na kraju sve zavisi od security settings na Exchange serveru.

:-)
:-)
 
Odgovor na temu

glisoni
Goran Gligorić
Bečej

Član broj: 15245
Poruke: 9
*.rodicmb.co.yu



Profil

icon Re: Kako poslati email sa atachom iz Accessa18.11.2003. u 07:07 - pre 217 meseci
Citat:
Zidar:
Ima i drugih resenja, sa CDO i CDONT bibliotekama, ali na kraju sve zavisi od security settings na Exchange serveru.


Hvala, prijatelju.

Ako ti nije previše naporno, možeš li dati primer za CDO, ili bar link. Korisnici mi imaju dosta nizak nivo znanja, a gornji primer (zbog Outlook-a i upozorenja) će ih isprepadati i vapi za pogrešnim klikovima na ta upozorenja.

Da li CDO omogućava da se kompletno zaobiđe Outlook i da se direktno koristi MAPI, ili sve opet ide kroz Outlook?
 
Odgovor na temu

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 3085
*.eqao.com



+79 Profil

icon Re: Kako poslati email sa atachom iz Accessa18.11.2003. u 14:36 - pre 217 meseci
Daj mi par sati da nadjem primer sa CDONT. To potpuno zaobilazi Outlook, medjutim Exchange security moze da bude problem.

U jednoj firmi u kojoj sam radio, dozvolili su da CDO radi, a u drugoj nece ni da cuju da bilo koja aplikacija salje mail a da oni (Exchange security) to ne kontrolisu. Nije problem u kodu koji ti verovatno vec imas, problem je u security i jedino tako moze da se resi, na nivou user/permission itd.

U svakom slucaju poslacu ti CDO/CDONt primer pa probaj i srecno.

:-)
 
Odgovor na temu

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 3085
*.eqao.com



+79 Profil

icon Re: Kako poslati email sa atachom iz Accessa18.11.2003. u 14:47 - pre 217 meseci
Evo ga:

Function EmailCDONTS()


'If you are using NT or 2000 as an OS then you can use CDONTS.
'It uses the SMTP Service to send mail directly.
'However the SMTP service must be running on the machine
'and the machine must have internet access.
'You add a reference to "Microsoft CDO for Exchange 2000 Library" :

Dim oEmail As New CDO.message

oEmail.From = "[email protected]"
oEmail.To = "[email protected]"
oEmail.TextBody = "Insert some useful text here"
oEmail.AddAttachment "C:\temp\test.txt"
oEmail.Send

End Function
 
Odgovor na temu

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI,
USA / Software Engineer
Ann Arbor, MI, USA

Član broj: 6598
Poruke: 2065
*.yubc.net

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz


Profil

icon Re: Kako poslati email sa atachom iz Accessa18.11.2003. u 14:47 - pre 217 meseci
Za CDONT pogledaj
http://www.elitesecurity.org/poruka/121768
 
Odgovor na temu

[es] :: Access :: Kako poslati email sa atachom iz Accessa

[ Pregleda: 3750 | Odgovora: 6 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.