Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: mail
anonim




Typ: Nie zarejestrowany
mail

jak odwołac sie do Outloka aby po kliknieciu np. na butona pojawiło sie okienko nowej wiadomosci z zalaczonymi 2 plikami np .C:\as.txt i C:\asd.txt
tekstem wiadomosci np."witam cos. tam cos tam "
i adresatem np. do ktorego bede wiadomosc wysylam,da sie cos takiego zrobic?
pomocy
Piotr

22-01-2004 16:49
  
Knight Lore''FC




Typ: neutral
Postów: 240
Zarejestrowany: Jan 2003

To juz bylo tutaj...

23-01-2004 10:48
Pokaż profil Knight Lore  Wyślij email do Knight Lore        1065423
deywid



Typ: neutral
Postów: 66
Zarejestrowany: Jan 2004

tia..ale tak własciwie to nic nie ma...
w każdy razie poradziłem sobie...
znalazlem 2 sposoby
Pierwszy wymaga zainstalowanego Microsoft Outlook
w references musi byc MSOUTL(8)9.OLB
tego co jest chyba razem z Officem i skonfigurowanym kontem,a wiec nie najlepsze rozwiazanie...
=========================
Dim objOutlook As Outlook.Application
Dim objMailItem As Outlook.MailItem
Set objOutlook = New Outlook.Application
Set objMailItem = objOutlook.CreateItem(olMailItem)

With objMailItem
.To = "" 'address mailowy odbiorcy
.Subject = "subjecdt"  'temat
.Body = "email messagexx"  ' treść
.Attachments.Add "C:\as.txt", olByValue, 1, "4th Quarter 1996 Results Chart"
'tak mniej wiecej zalacza sie pliki

.Send  'wysylanie
End With

Set objMailItem = Nothing
Set objOutlook = Nothing

==============================================

drugi jest troszke lepszy(według mnie ) bo opiera sie na MAPI
components (MSMAPI32.OCX)
MAPIMessage1;MAPISession1
-------------------
MAPISession1.SignOn
MAPISession1.DownLoadMail = False
DoEvents
    MAPIMessage1.SessionID = MAPISession1.SessionID
    MAPIMessage1.Compose
   
    MAPIMessage1.RecipAddress = txtSendTo
'mail odbiorcy
    MAPIMessage1.ResolveName
    MAPIMessage1.MsgSubject = txtSubject 'temat
    MAPIMessage1.AttachmentName = "nazwa.txt"
'wyswietlana nazwa załącznika
    MAPIMessage1.AttachmentPathName = "C:\as.txt"
'sciezka do zalacznika
MAPIMessage1.MsgNoteText = txtMessage 'tresc
MAPIMessage1.Send False
MAPISession1.SignOff

------------
ewentualnie funkcja do txtBoxa (mi sie przydała )
Private Sub txtSendTo_GotFocus()
    txtSendTo.SelStart = 0
    txtSendTo.SelLength = Len(txtSendTo)
End Sub

================================
uf to chyba tyle
jak cos to
pozdro

23-01-2004 17:24
Pokaż profil deywid  Wyślij email do deywid        5625009
deywid



Typ: neutral
Postów: 66
Zarejestrowany: Jan 2004

jeszcze znalazłem z wykorzystaniem
kontrolki "Microsoft Winsock 6.0".
powinno byc jeszcze lepiej
oto przykład....
[URL=http://]www.vbasic.cad.pl/zip/Pr015.zip

26-01-2004 19:04
Pokaż profil deywid  Wyślij email do deywid        5625009
Wszystkich odpowiedzi: 3 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1