< návrat zpět

MS Excel


Téma: email z excelu do outlooku rss

Zaslal/a 9.2.2021 19:11

Zkoušel jsem napsat makro v Outlooku. - zatím mi jde jen připravit mejl pro jednoho klienta, a přiložit všechny soubory z jeho složky.

..ale je tu problém, že než ho spustím, musím ručně otevřít nový prázdný email a nad ním až spustit to makro.

/////

Private Sub vice_priloh_Click()
Rem tlačítko doplní všechny soubory do nového meilu.z daneho adresare
Rem Funguje jen v Outloku a Musis ručně otevřít nový prázný email
Rem Sub AttachAllFilesinaLocalFolder()
' vloží do přílohy emailu všechny soubory ze složky

Dim objMail As Outlook.MailItem
Dim strFolderPath As String
Dim strFileName As String

If TypeName(Application.ActiveInspector.CurrentItem) = "MailItem" Then
Set objMail = Application.ActiveInspector.CurrentItem
End If

'Změňte cestu ke složce podle svého skutečný případ
strFolderPath = "C:\a pracovni\adresare\adam\"
strFileName = Dir(strFolderPath)

While Len(strFileName) > 0
objMail.Attachments.Add (strFolderPath & strFileName)
strFileName = Dir
Wend

End Sub

///////

...jde to nějak vyřešit , aby se ten nový email otevřel sám, a doplnily se i pole:

????? .BodyFormat = olFormatHTML
.Display
.HTMLBody = "posíláme protokoly" & " " & " Najděte přiložený soubor " & .HTMLBody

.To = "ab@volny.cz"
.CC = "ab@volny.cz"
.BCC = "ab@volny.cz"
.Subject = "TEST MAIL"

Chtěl jsem do toho taky přidat příjemce, příjemce kopie, předmět, a text ale nevím jak to tam zakomponovat

Víc by mi vyhovovalo, kdyby to makro bylo dostupné z excelu, ale když ho tam nakopíruju, tak mi vyhodí chybu "

***************************************

Děkuji

Pavel

Zaslat odpověď >

Strana:  1 2   další »
#049778
elninoslov
Z Outlooku je to takto:
Sub vice_priloh_Click()
Dim myItem As Outlook.MailItem
Dim strFolderPath As String
Dim strFileName As String
Dim bIsCreated As Boolean

On Error Resume Next
Set myItem = Application.ActiveInspector.CurrentItem
On Error GoTo 0

If myItem Is Nothing Then
Set myItem = Application.CreateItem(olMailItem)
bIsCreated = True
ElseIf myItem.Class <> olMail Then
Set myItem = Application.CreateItem(olMailItem)
bIsCreated = True
End If

With myItem
strFolderPath = "C:\a pracovni\adresare\adam\"
strFileName = Dir(strFolderPath, vbNormal)

While Len(strFileName) > 0
.Attachments.Add (strFolderPath & strFileName)
strFileName = Dir
Wend

If bIsCreated Then .Display
.HTMLBody = "posíláme protokoly" & " " & " Najděte přiložený soubor " & .HTMLBody
.To = "ab@volny.cz"
.CC = "ab@volny.cz"
.BCC = "ab@volny.cz"
.Subject = "TEST MAIL"
'.Send
End With

Set myItem = Nothing
End Sub

Excel:
Private Sub vice_priloh_Click()
' Reference Microsoft Outlook xx.x Object Library
Dim objOutlook As Object
Dim myItem As Object
Dim strFolderPath As String
Dim strFileName As String
Dim bIsCreated As Boolean

On Error Resume Next
Set objOutlook = GetObject(, "Outlook.Application")
On Error GoTo 0

If objOutlook Is Nothing Then
Set objOutlook = CreateObject("Outlook.Application")
bIsCreated = True
End If
Set myItem = objOutlook.CreateItem(0)


With myItem
strFolderPath = "C:\a pracovni\adresare\adam\"
strFileName = Dir(strFolderPath, vbNormal)

While Len(strFileName) > 0
.Attachments.Add (strFolderPath & strFileName)
strFileName = Dir
Wend

.HTMLBody = "posíláme protokoly" & " " & " Najděte přiložený soubor " & .HTMLBody
.To = "ab@volny.cz"
.CC = "ab@volny.cz"
.BCC = "ab@volny.cz"
.Subject = "TEST MAIL"
.Display
'.Send
End With
If bIsCreated Then objOutlook.Quit

Set myItem = Nothing
Set objOutlook = Nothing
End Sub

A odkiaľ sa majú brať tie údaje na doplnenie ?citovat
#049779
avatar
Moc dekuju,zitra to vyzkousim.citovat
#049782
avatar
Zdravím,
no původně jsem si to představoval takto.
Mám excel.sešit kde je seznam klientů, jejich email, cesta k jejich složce, a parametr "Odeslan"

Finální kod měl spustit makro z excelu, které otevře nový email, pro 1.klienta, /pokud má ve sloupci "odesláno" "N"/ a připojí k němu všechny soubory z jeho složky = slupec B.

Jakmile email odešle , zapíše do sloupce C "A"

Pak pokračuje na další řádek, dalšího klienta až do konce.

To už je na mě ale "vyšší dívčí". Neumím práci s proměnnou. Pokud by jste dokázal napsat i toto, můžete do toho kodu strčit i poznámky, který řádek nebo sekce co dělá? Takto se to učím za pochodu. Nahraju si nějaké makra a pak to zkouším u v kodu různě modifikova /pokus/omyl, no programátor ze mě nebude.
Díky
Pavel
Příloha: jpg49782_exc.jpg (12kB, staženo 13x)
49782_exc.jpg
citovat
#049783
avatar
..tak v excelu to jede dobře. Když spustím kod ten z outlook vyhodí mi to to error:
Příloha: jpg49783_outl.jpg (26kB, staženo 18x)
49783_outl.jpg
citovat
#049787
elninoslov
Tak asi nemáte v Outlooku povolené makrá

V Exceli to naprogramovať nieje problém. Mrknem na to ale najskôr na obed. Zatiaľ upresnite:
-Na ktorom riadku začínajú dáta?
-Ktorý stĺpec je smerodajný na určenie počtu riadkov?
-V ktorom stĺpci je mail klienta?
-Počas tejto operácie je Outlook stále zapnutý? Ide totiž o to, že ak by ste mal neustále vytvárať a rušiť objekt Outlooku (alebo ho otvárať), tak je to neúnosne pomalé.

EDIT: Aha screen som si všimol až teraz.citovat
#049789
avatar
V tom outlooku mi to zas tolik nevadí, zkusím povolit ty makra .To bylo jen abych viděl jaký je v tom rozdíl, excel/outlook. Budu to spouštět z excelu.citovat
#049793
elninoslov
Tak tu máte hromadné pre Excel. Ono čo sa týka toho Outlooku, tak nerozumiem odkiaľ by bral mail, adresáre, text do mailu...
Inak ten text do mailu (telo správy), to je akože u každého iné? Predmet tiež?
Příloha: zip49793_odesilani-mailu-podle-tabulky.zip (22kB, staženo 9x)
citovat
#049802
avatar
Dobrý večer,
máte to se mnou těžké co?
Když to spustím, vyhodí chybu viz obr.
Asi to chce něco přidat do Reference, ale nevím co, jsou tam toho desítky...

To tělo emailu a předmět bude vždy stejné.

Pavel
Příloha: jpg49802_er.jpg (37kB, staženo 18x)
49802_er.jpg
citovat
#049806
elninoslov
Odstráňte ten znak $ za "Right". Nie som si istý, či to Vaša verzia Excelu pozná. V novších to bežne používam. Akú máte verziu?citovat
#049812
avatar
ani po smazání $ nejde spustit, zasekne se to hned v prvním kroku
Příloha: jpg49812_off-ver.jpg (8kB, staženo 14x)
49812_off-ver.jpg
citovat

Strana:  1 2   další »

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

VBA - načtení dat ze souboru s proměnným názvem

€Ł мσşqμΐτσ • 22.1. 19:28

Sumar nakupov

Pavlus • 22.1. 13:05

VBA - načtení dat ze souboru s proměnným názvem

Fantasyk • 22.1. 9:12

Sumar nakupov

Robo11 • 21.1. 21:23

VBA - načtení dat ze souboru s proměnným názvem

€Ł мσşqμΐτσ • 21.1. 12:21

Tělo emailu ve VBA - formát

Fantasyk • 20.1. 20:47

odstranenie opakujucich sa udajov v riadkoch

frantilopa • 20.1. 18:12