Code:
Public Sub TestMail()
Dim objoutlook As New Outlook.Application
Dim objmail As MailItem
Set objmail = objoutlook.CreateItem(olMailItem)
With objmail
.To = "[email protected]"
.CC = ""
.Subject = "Test"
.Body = "Test1"
' .Display
.Send ' ovde se pojavljuje greška
End With
Set objmail = Nothing
End Sub
Public Sub TestMail()
Dim objoutlook As New Outlook.Application
Dim objmail As MailItem
Set objmail = objoutlook.CreateItem(olMailItem)
With objmail
.To = "[email protected]"
.CC = ""
.Subject = "Test"
.Body = "Test1"
' .Display
.Send ' ovde se pojavljuje greška
End With
Set objmail = Nothing
End Sub
Ako se skine comment na liniji .Display, onda ovaj kod radi, poruka se pošalje. Posle tog inicijelnog prikazivanja poruke kod radi i bez njenog prikazivanja. Da li je imao neko iskustvo sa ovim i da li se poruka nekako može aktivirati bez .Display i taj prvi put?
Ozbiljan i odgovoran mladić