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