'For this example click References on the Tools Menu, and select the
'Microsoft Outlook 9.0 object libraries.
Dim ol As Object, myItem As Object
'Create a Microsoft Outlook session
Set ol = CreateObject("outlook.application")
'Create a mail
Set myItem = ol.CreateItem(olMailItem)
'Add information to the new mail
adresat = "proszepodpowiedz@wp.pl" 'adresat wiadomości, jeśli wielu oddzielamy znakiem separacji ;
temat = "Powiadomienie o terminie przeglądu" 'tutaj temat wiadomości
tresc = "Proszę sprawdzić arkusz przypomnień" & vbCr & "numer"
With myItem
.To = adresat
.Subject = temat
.Body = tresc
.NoAging = True
.ReadReceiptRequested = False 'True jesli chcesz by przesłano potwierdzenie odczytu
.OriginatorDeliveryReportRequested = False 'True jesli chcesz by potwierdzenie odbioru
.Send ' Save jeśli chcesz zapisać w draft
End With
'Remove object from memory
Set ol = Nothing
End Sub
Problem jest taki : że arkusz nie wysyła e- maila tylko wpisuje do skrzynki nadawczej Outlooka i aby się wysłał, należy odpalić Outlooka.Można tak zrobić aby się realnie wysłał w tle ten e-mail??Jeśli tak to proszę o podpowiedź.
napisał: rodzyneek postów: 4
umieszczony: 3 września 2008 12:26
dzięki za odpowiedź ale niestety wiadomość jest w formacie html.
napisał: Drzwi postów: 27
umieszczony: 1 września 2008 09:19
Sub Mail_small_Text_Outlook() Dim OutApp AsObject Dim OutMail AsObject
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon Set OutMail = OutApp.CreateItem(0)
wstecz 1 dalej
otwarty rozpoczął: rodzyneek
postów: 4
