> Witam.
>
> Mam następujący problem.
> Uruchamiam z Outlooka makro ("wysyłanie_maila"):
>
> Sub włącz_makro_w_exelu()
>
> 'otiera plik xlsm i uruchamia makro "wysyłanie_maila"
>
> Dim xlApp As Object
> Dim sourceWB As Workbook
>
> Set xlApp = CreateObject("Excel.Application")
>
> With xlApp
> .Visible = True
> .EnableEvents = False
> End With
>
> Set sourceWB = Workbooks.Open("C:\Pulpit\kontakty.xlsm")
>
> On Error GoTo wyjdź
> xlApp.Run "wysyłanie_maila"
>
> xlApp = Nothing
>
> wyjdź:
> Exit Sub
>
> End Sub
>
>
> które otwiera plik "C:\Pulpit\kontakty.xlsm", wykonuje makro
> "wysyłanie_maila" i zamyka plik "kontakty.xlsm" bez zapisywania. Wszystko
> działa, ale niestety tylko raz. Po ponownej próbie uruchomienia
> powyższego kodu nic się nie dzieje (w Menadżerze Zadań Windows widać,
> że system "procesuje" plik EXCEL). Dodam, że po zresetowania makra w
> Outlooku wszystko wraca do normy i marko znów działa.
>
> Macie jakieś pomysły?
>
> --
>
> ----
> Wysłano z serwisu www.outlook.pl
> Forum, artykuły, porady o MS Outlook.