• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse