MS Excel

Téma: UserForm

Zaslal/a LeslieBrown 21.1.2011 20:16

Dobrý den,

potřeboval bych menší pomoc.

Níže uvedený kód funguje, tak jak má, až na "HTMLbody". Výběr z ponuky "ComboBox1" mám na list2 v 2 sloupci. Potřeboval bych, aby když zvolím třeba z nabídky ComboBox1 "ŠablonaA" (List2!B2) tak do HTMLbody se mi nakopíruje příslušný text z vedlejší buňku (List2!C2)

Private Sub ComboBox1_Change()

End Sub

Private Sub CommandButton1_Click()

'Dim myOlApp As Outlook.Application
'Dim myItem As Object

mMail = UserForm3.TextBox1.Text

Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olMailItem)
''Set myAttachments = myItem.Attachments

'přidání přílohy
'CestaSoubor = "C:\test.txt"
'myAttachments.Add CestaSoubor, olByValue, 1, ""

With myItem
.To = mMail & "@proxyma.local"
'.CC =
.Subject = ""
.HTMLBody = ???????????????????????
.importance = 1
.Display

End With

Set myOlApp = Nothing
Set myItem = Nothing

End Sub

Private Sub TextBox1_Change()

End Sub

Díky za pomoc