MS Excel

Téma: příloha v Outlooku

Zaslal/a zdena 28.6.2013 22:01

Zdravím. ještě jedna prosba.
Přílohu txt odesílám v Outlooku, nyní jsem ve fázi testování a tak nepoužiji send, ale při zrušení připraveného odeslání mailu, se mi outlook zakousne.
Kde, prosím, dělá soudružka z NDR chybu? děkuji za pomoc.
Sub var_4(): Application.ScreenUpdating = False
Dim Adresa As String: Dim sb1 As String
sb1 = "C:\obchod\export.txt"
On Error GoTo ERR1
Dim objOutlook As Object: Dim objMail As Object
Set objOutlook = CreateObject("Outlook.Application"): Set objMail = objOutlook.CreateItem(0)
With objMail
.To = "x.y@seznam.cz"
.CC = "x.y@tiscali.cz"
.Subject = "export " & Now
.Body = "data " & Range("menu!b1")
.Attachments.Add Adresa & sb1
.Display
'.Send
End With
Set objOutlook = Nothing: Set objMail = Nothing: Exit Sub ':MsgBox "e-mail odeslán": Exit Sub
ERR1:
MsgBox "e-mail nebyl odeslán" & Chr(10) & "zkontroluj pripojenie na server", 32
UserForm1.Label28.Caption = "NEODESLÁN": Exit Sub
End Sub

Zaslat odpověď >

cmuch(1.7.2013 10:19)#014235

Zdravím,
u mě se chová dobře.
Mejl se vytvoří a když ho pak zruším tak outlook běží dál.citovat

zdena(1.7.2013 11:12)#014237

Děkuji, nicméně cca po 6 zrušení odeslání, se outlook sekne. Přesto děkuji ještě jednou

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.