Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: może ktoś zobaczy to świeżym okiem :)))
Dagged
Dagged




Typ: neutral
Postów: 49
Zarejestrowany: Dec 2003
może ktoś zobaczy to świeżym okiem :)))

Cze. mam dll, a w min cos takiego:

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal IpOperation As String, ByVal IpFile As String, ByVal IpParameters As String, ByVal IpDirectory As String, ByVal nSchowCmd As Long) As Long
Const SW_SHOWNORMAL = 1

Public Function OutlookSend(Odbiorca As String, Temat As String, Treść As String)
  ShellExecute Form1.hWnd, vbNullString, "" & Odbiorca & "?subiect=" & Replace(Temat, "", "%20" & "&body=" & Treść, vbNullString, "", SW_SHOWNORMAL
End Function

Po dodaniu dll do projektu pisze

Dim Mojadll As New wyslij

Private Sub Command1_Click()
Mojadll.OutlookSend "", "Temat", "dddddd"
End Sub



i przy wywkonywaniu wywala mi :
Object reqiuired

nie wiem co to albo juz jestem zmeczony. Dzieki z gory za pomoc


_____________________________________________
May the Force be with you...

11-10-2004 13:06
Pokaż profil Dagged  Wyślij email do Dagged        1728948
Chudy
[TLHW]Wiktor



Typ: moderator
Postów: 574
Zarejestrowany: Aug 2002

Pewnie w dll'ce nie ma formy. Więc musisz zrobić aby przekazany był hWnd formy programu w którym wywołujesz procedure. Oczywiście możesz zmienić Form1 na inną formę.

Podmień funkcje na poniższą:

Public Function OutlookSend(hWnd As Long, Odbiorca As String, Temat As String, Treść As String)
  ShellExecute Form1.hWnd, vbNullString, "" & Odbiorca & "?subiect=" & Replace(Temat, "", "%20" & "&body=" & Treść, vbNullString, "", SW_SHOWNORMAL
End Function

A następnie aby wywołać procedure wpisujesz:
Dim Mojadll As New wyslij

Private Sub Command1_Click()
Mojadll.OutlookSend Form1.hwnd, "", "Temat", "dddddd"
End Sub


PS: Poznaje tą funkcje. Chyba sam ją napisałem


_____________________________________________
Projekt "Thunder Cannons" nadchodzi...

11-10-2004 13:39
Pokaż profil Chudy  Wyślij email do Chudy   Odwiedź stronę Chudy       1220895
Dagged
Dagged




Typ: neutral
Postów: 49
Zarejestrowany: Dec 2003
Bardzo mozliwe

bo ściągnąłem ja z tąd

Dzieki i pozdrawiam )


_____________________________________________
May the Force be with you...

11-10-2004 13:50
Pokaż profil Dagged  Wyślij email do Dagged        1728948
marcin_an
Forumowicz




Typ: neutral
Postów: 1265
Zarejestrowany: Mar 2004

Jeśli Chudy nie ma racji, to sprawdź, czy w czasie wykonywania w mojadll jest wogóle stworzony jakiś obiekt.


_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

11-10-2004 14:31
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003


Dim Mojadll As New wyslij

Private Sub Command1_Click()
Set MojaDll=New Wyslij
Mojadll.OutlookSend Form1.hwnd, "", "Temat", "dddddd"
End Sub


Powinno to być to...


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

12-10-2004 23:16
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
Chudy
[TLHW]Wiktor



Typ: moderator
Postów: 574
Zarejestrowany: Aug 2002

Aha... Przez przypdaek zrobiłem błędzik w kodzie który podałem wcześniej:
Public Function OutlookSend(hWnd As Long, Odbiorca As String, Temat As String, Treść As String)
  ShellExecute hWnd, vbNullString, "" & Odbiorca & "?subiect=" & Replace(Temat, "", "%20" & "&body=" & Treść, vbNullString, "", SW_SHOWNORMAL
End Function

Należy zamienić form1.hwnd na hwnd. Przepraszam za błąd.


_____________________________________________
Projekt "Thunder Cannons" nadchodzi...

15-10-2004 11:18
Pokaż profil Chudy  Wyślij email do Chudy   Odwiedź stronę Chudy       1220895
Wszystkich odpowiedzi: 5 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1