< návrat zpět

MS Excel


Téma: příloha v Outlooku rss

Zaslal/a 28.6.2013 22:01

zdenaZdraví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. 1
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ěď >

#014235
avatar
Zdravím,
u mě se chová dobře.
Mejl se vytvoří a když ho pak zruším tak outlook běží dál.citovat
#014237
zdena
Děkuji, nicméně cca po 6 zrušení odeslání, se outlook sekne. Přesto děkuji ještě jednou 1citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse