Makro w Outlook 2003 automatyczna wiadomość

Oprogramowanie komputerowe Problemy z oprogramowaniem
#1

Witam !

Chcę utworzyć makro tworzące wiadomość o konkretnej treści i temacie.

Mam dostępne coś takiego:

Sub CreateHTMLMail()

Dim oMail As MailItem

Set oMail = Application.CreateItem(olMailItem)

oMail.HTMLBody = " Witam ,

to jest treść wiadomości"

oMail.Subject = “Test HTML”

oMail.Save

End Sub

Po wpisaniu w/w i uruchomieniu makro nie startuje.

Może ktoś z forumowiczów zna się na visual basicu i mi pomoże ?

Wojtek

– Dodane 15.04.2009 (Śr) 17:15 –

Okej - nie czekając poradziłem sobie z tym makro.

Mam przycisk wysyłający określoną wiadomość o określonym temacie na dany mail.

Teraz zagwozdka taka, żeby wstawić coś takiego jak reminder przypominający o wysłaniu tego maila o danej godzinie :slight_smile:

Może ktoś pomóc ?

Wojtek

#2

Niestety, w tym wypadku, ustawienie przypomnienia na wiadomości email nie będzie działać, gdyż przypomnienia nie działają w folderze “Wersje robocze”. Wyjściem z sytuacji jest jednoczesne utworzenie wiadomości email oraz zadania z ustawionym przypomnieniem.

Aby tego dokonać należy użyć następującego kodu jako przykładu:

Public Sub SentMail()


Dim oMail As MailItem

    Set oMail = Application.CreateItem(olMailItem)

    oMail.HTMLBody = "Witam, 
to jest tresc wiadomosci"

    oMail.Subject = "Test HTML"

    oMail.Save


    Dim oTask As TaskItem

    Set oTask = Application.CreateItem(olTaskItem)

    oTask.Subject = "Wyslij emaila!"

    oTask.ReminderSet = True

    oTask.ReminderTime = TimeSerial(14, 0, 0)

    oTask.Save


End Sub[/code]

Po uruchomieniu zostanie utworzona wiadomość email w folderze “Wersje robocze” oraz zadanie z przypomnieniem ustawionym na godzinę 14:00. Dzięki temu zostaniemy poinformowani o tej godzinie, aby wysłać emaila. Wadą takiego rozwiązania jest to, iż utworzone zadania będą się zbierać w folderze “Zadania” i aby utrzymać porządek będziemy musieli, co jakiś czas, je ręcznie usuwać.