MS Excel

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ší »

elninoslov(9.2.2021 22:11)#049778

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

PavelDd(9.2.2021 22:16)#049779

Moc dekuju,zitra to vyzkousim.citovat

PavDD(10.2.2021 8:35)#049782

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: jpg

49782_exc.jpg (12kB, staženo 32x)

citovat

PavDD(10.2.2021 8:50)#049783

..tak v excelu to jede dobře. Když spustím kod ten z outlook vyhodí mi to to error:

Příloha: jpg

49783_outl.jpg (26kB, staženo 44x)

citovat

elninoslov(10.2.2021 9:32)#049787

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

PavDD(10.2.2021 10:08)#049789

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

elninoslov(10.2.2021 12:38)#049793

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: zip

49793_odesilani-mailu-podle-tabulky.zip (22kB, staženo 26x)

citovat

PavDD(10.2.2021 18:16)#049802

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: jpg