[es] - E-mail iz Outlook Express-a

icobh
Igor Pejašinović
PEJAŠINOVIĆ LTD.
Stara Dubrava, RS, BiH

Član broj: 18738
Poruke: 967
*.teol.net

Sajt: localhost

Profil

E-mail iz Outlook Express-a

^{14.02.2004. u 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...

I ♥ ♀

Ovaj post je zlata vrijedan!

^{14.02.2004. u 01:39}

anebojsa
Bgd

Član broj: 16174
Poruke: 55
*.vdial.verat.net

Sajt: solair.eunet.yu/~aksa74

Profil

Re: E-mail iz Outlook Express-a

^{14.02.2004. u 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]

^{14.02.2004. u 09:43}

X-Cite
Goran Tadić
Mediacija, Tuštelekom
Ljubljana

Član broj: 28706
Poruke: 625
*.kis.si

ICQ: 311920553
Sajt: www.baza-ukradenih-gsm.co..

Profil

Re: E-mail iz Outlook Express-a

^{17.08.2004. u 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
ime@domain.com

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

Pozdrav
GoGy

^{17.08.2004. u 20:05}

icobh
Igor Pejašinović
PEJAŠINOVIĆ LTD.
Stara Dubrava, RS, BiH

Član broj: 18738
Poruke: 967
*.teol.net

Sajt: localhost

Profil

Re: E-mail iz Outlook Express-a

^{17.08.2004. u 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:proba@proba.com")

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...

I ♥ ♀

Ovaj post je zlata vrijedan!

^{17.08.2004. u 22:46}

X-Cite
Goran Tadić
Mediacija, Tuštelekom
Ljubljana

Član broj: 28706
Poruke: 625
*.dsl.siol.net

ICQ: 311920553
Sajt: www.baza-ukradenih-gsm.co..

Profil

Re: E-mail iz Outlook Express-a

^{18.08.2004. u 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

Pozdrav
GoGy

^{18.08.2004. u 11:26}