[ icobh @ 14.02.2004. 01:39 ] @
OK. Kako napisati kod za slanje e-mail-a ali da default program za slanje mail-a bude Outlook Express. NPR. kad na programu kliknem da pošaljem e-mail autoru da mi se otvori outlook express sa autovom adressom,određen subject itd...
[ anebojsa @ 14.02.2004. 09:43 ] @
Code:

'dodaj kontrolu microsoft common dialog control
'dodaj kontrolu microsoft mapi controls
'4 txtbox
'3 cmdbuttona

Private Sub ComposeMessage()
On Error GoTo ComposeErr
Dim sTo1, sAttachment, sSubject, sNote As String
sTo1 = Text1
sAttachment = Text2
sSubject = Text3
sNote = Text4
With MAPIMessages1
    .Compose
    .RecipDisplayName = Text1
    .AttachmentPathName = Text2
    .MsgSubject = Text3
    .MsgNoteText = Text4
    .ResolveName
    .Send True
End With

Exit Sub

ComposeErr:
    Debug.Print Err.Number, Err.Description
    Resume Next

End Sub

Private Sub Command1_Click()
With MAPISession1
    .DownLoadMail = False
    .LogonUI = True
    .SignOn
    MAPIMessages1.SessionID = .SessionID
    ComposeMessage
End With
MAPISession1.SignOff

End Sub

Private Sub Command2_Click()
Unload Me

End Sub

Private Sub Command3_Click()
On Error Resume Next
With CommonDialog1
    .InitDir = App.Path & "\Attachment\"
    .Filter = "All Files (*.*)|*.*|"
    .FilterIndex = 1
    .Action = 1
    Open .FileName For Input As 1
    Text2.Text = .FileName
    Close 1
End With

End Sub

Private Sub Form_Load()
Text1 = "e-mail"
'Text2 = "Attachment"
Text3 = "Subject"
Text4 = "Note"

End Sub


[Ovu poruku je menjao mladenovicz dana 18.08.2004. u 11:56 GMT]
[ X-Cite @ 17.08.2004. 20:05 ] @
Meni je potrebna slična stvar...

ali ja želim da mi bude text uradjen u link kao npr ovo www.domain.com i email
[email protected]

da stoji tako u VB-u i kad se klikne na njega ono se otvori outlook sa tom adresom.

bez dugmadi... samo klik na link i ono se otvara
[ icobh @ 17.08.2004. 22:46 ] @
Ja sam našao način kako otvoriti neku stranicu NPR:

Code:
Dim Web
Web=Shell("Explorer.exe http://www.proba.com")


Pokušao sam na taj način i sa e-mail-om:

Code:
Dim Web
Web=Shell("Explorer.exe mailto:[email protected]")


Ali problem kod ovoga je što se otvara i Outlook Express(ako je default) a i Explorer.
Sad da je nekako bez explorera a vidio sam da može ali ne znam...
[ X-Cite @ 18.08.2004. 11:26 ] @
pokusao sam i vidim da radi... sad moram jos da skontam kako ide da ti normalno i podcrta slova od linka...

dok sam pretrazivao forum o tome vidim da neke MAPI valjda za te stvari idu...

moracu se potruditi malkice

hvala icobh
[ owgmorpheus @ 23.08.2004. 01:31 ] @

www.vb-source-code.4t.com

Imas source i za slanje maila i za linkove!
[ kole1983 @ 19.02.2009. 08:14 ] @
Pozdrav, da li neko zna gde Outlook express radi extract svih mailova po default-u? Ja sam to uradio da bih nakon reinstalacije OS vratio ih, medjutim nigde nisam mogao naci putanju...?! Hvala...
Ili ako mi mozete reci neki drugi nacin vracanja svih mailova... imam ih kopirane ali ih nece importovati sa .dbx extenzijom
[ dava @ 19.02.2009. 09:53 ] @
Malo si fulio forum jer ovo je VB forum, ali da ne bude progameri nista ne znaju o win-u, odgovoricu ti.

Ja radim backup mailova tako sto ih jednostavno prekopiram sa putanje:

Code:
C:\Documents and Settings\"user"\Local Settings\Application Data\Identities\{D50C5D88-7002-4B6B-872E-BF7D632DB522}\Microsoft\Outlook Express


pa nakon dizanja win-a podesim nalog za mail u Outlook Express-u, zatim vratim sve fajlove na gore pomenutu putanju. Nemoj da te zbuni ako ne postoji ta putanja je se ona kreira tek kad podesis nalog za mail.

Po defaultu mislim da je na putanji:

Code:
c:\Documents and Settings\"user"\Local Settings\Application Data\Microsoft\Outlook\outlook.ost