MS Excel

Téma: excel x outlook

Zaslal/a ji026441 22.12.2010 18:19

Dobrý den,
v excelu mám buňku (formát hh:mm) pak mám makro, které vytvoří e-mailovou zprávu s vyplněným příjemcem, předmětem, a vlastním tělem, kde chi mít
"text1:" hodnotu buňky (ve formátu hh:mm)
"text2:"

Dim ObjOutlook As Object
Dim objMail As Object
Dim strBody As String
Dim lngRetVal As Long
Dim bunka As Range
Dim Hodiny As Date
Dim Radek As Integer

Radek = ActiveCell.Row
Hodiny = (ActiveSheet.Cells(Radek, 9))

If lngRetVal <> 0 Then
Set ObjOutlook = GetObject(, "Outlook.Application")
Else
Set ObjOutlook = CreateObject("Outlook.application")
End If

On Error GoTo MailErr

Set objMail = ObjOutlook.CreateItem(0)
objMail.To = "jan.novak@seznam.cz"
objMail.Subject = "text"
objMail.htmlBody = "text1: " & Hodiny & "text2:"
objMail.Display

Nedaří se mi hodiny zobrazit ve formátu hh:mm a text2 na novém řádku.

Děkuji za případné odpovědi

Zaslat odpověď >

RomanNTA(22.12.2010 20:45)#003593

Vyber si ...

objMail.htmlBody = "text1: " & Format(Range("A1"), "hh:mm")
& "text2:"

objMail.htmlBody = "text1: " & Range("A1").Text
& "text2:"
citovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.