Witam.
Potrzebuję napisać kod VBA, który będzie wysyłał około 30 raportów różniących się między sobą do określonych grup adresatów.
Przykładowo moje pliki z raportami nazywają się rap_01.xlsm, rap_02.xlsm, rap_03_xlsm i tak aż do rap_30.xlsm.
Mam stworzoną tabelę z nazwami plików i przyporządkowaną do niej listę adresową (dystrybucyjną) - każdy adres jest oddzielony średnikami.
Przykład tabeli poniżej:
Panie Przemku.
Jedno z możliwych rozwiązań:
Sub Wyslij()
Dim OutApp As Object
Dim OutMail As Object
Dim zakres As Range
Dim w As Integer
Application.ScreenUpdating = False
'tworzymy obiekt aplikacji Outlooka
Set OutApp = CreateObject("Outlook.Application")
On Error GoTo cleanup
'zaznaczony zakres komórek
Set zakres = Selection
'od drugiego wiersza bez wiersza nagłówkowego
For w = 2 To zakres.Rows.Count
'tworzymy nowego maila
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
' skladnia maila
With OutMail
'do kogo - pobieramy z drugiej kolumny zaznaczenia
'z kolejnych wierszy zaznaczenia
.To = zakres.Cells(w, 2).Value
'to mozna zmienić na dowolną treść
.Subject = "raport"
'jak chcemy może być treść maila
'.Body =
' dodajemy załcznik - ŚCIEŻKĘ PROSZĘ ZMIENIĆ NA SWOJĄ
'nazwe pliku pobieramy z 1 kolumny zaznaczenia
.Attachments.Add "C:\Documents and Settings\instrutor\Pulpit\dane\" & zakres.Cells(w, 1).Value
.Send
End With
Set OutMail = Nothing
Next w
cleanup:
Set OutApp = Nothing
Application.ScreenUpdating = True
MsgBox "koniec"
End Sub
Patrz załącznik.
Załączniki
Panie Michale, w przypadku pojawiania się komunikatu, proszę skorzystać z tego rozwiązania:
Witam.
Chciałbym się dowiedzieć, czy można z poziomu VBA obejść komunikat "Pewien program próbuje automatycznie wysłać wiadomość...", bez instalowania dodatkowych programów?
Z góry dziękuję za pomoc.
Paweł.
Tak, należy posiadać uprawnienia administratora i zmodyfikować opcję w Centrum zabezpieczeń Outlooka (plik/Opcje/Centrum zabezpieczeń/Ustawienia/Dostęp programowy i wybrać: Nigdy nie ostrzegaj ....
