zdravim
potreboval by som poradit ako pomocou vba v office 2000 nastavit pre
posielany mail format (content-type) na text/html
moja funkcia posle iba text/plain, ale chcel by som to nastavit na html
hladal som aj v msdn, ale nic, co by pomohlo, som nenasiel
moja func:
Public Sub PoslatMail(Text As String, Adresa As String, Subject As
String, Edit As Boolean)
Dim myOutlook As Outlook.Application
Dim myOutlookMsg As Outlook.MailItem
Dim myOutlookRecip As Outlook.Recipient
Set myOutlook = CreateObject("Outlook.Application")
Set myOutlookMsg = objOutlook.CreateItem(olMailItem)
With myOutlookMsg
Set myOutlookRecip = .Recipients.Add(Adresa)
myOutlookRecip.Type = olTo
.Subject = Subject
.Body = Text
.Importance = olImportanceNormal
For Each myOutlookRecip In .Recipients
myOutlookRecip.Resolve
If Not myOutlookRecip.Resolve Then
myOutlookMsg.Display
End If
Next
If Edit Then
.Display
Else
.Send
End If
End With
Set myOutlookMsg = Nothing
Set myOutlook = Nothing
End Sub
vdaka za pomoc
peter
This archive was generated by hypermail 2.1.2 : 30. 08. 2002, 17:53 CEST