mapa polski

Klikalna Mapa polski na strone joomla. Do wdrożenia
http://winstonwolf.pl/css,polska.html#

Centrum Sportowe Capoeira na WOŚP 2010

Artykuł o WOŚP i uczestnictwie naszej ekipy
http://sosnowiec.gazeta.pl/gazetasosnowiec/1,93867,7427868,Sportowcy_z_Zaglebia_ponownie_zagraja_dla_WOSP.html

Prosty Generator kodów kreskowych

http://chemeng.p.lodz.pl/zylla/ut/barcode/ean8-13.php

BTS NET poszukiwany poszukiwana.

firma BTS NET sp.z o.o.
ul.Jagiellońska 39b
70-382 Szczecin
NIP: 852-23-41-448
tel 091/8866333 / 0509 087 525
allegro@btsnet.pl
admin@btsnet.pl
KRS: 0000015965
Zarząd:
Prezes zarządu: Ewa Kalina Łachut  córka Aleksandra, mąź Jacek

Vice prezes zarządu: Łukasz Haładuda
Vice prezes zarządu: Szymon Piotr Badziura
Data rejestracji firmy w KRS: 2001-06-01


odpowiedzialny za dział allegro:
Krzysztof Jurski (syn Paweł /Wrocław córka Małgorzata 10 lat, żona Sylwia (Golanowska) 39 lat)
tel. 509087520
lub tel. 509087524

excel - importowanie e-mail do TXT

1. Przechwytywanie przychodzących maili i ich zapis do pliku txt.
a) otwieramy Outlooka
b) wybieramy z opcji Edycja/ Makro / Edytor Visual Basic
c) następnie rozwijamy znajdujące się po lewej stronnie w edytorze Project/ Microsoft Office Outlook Objects/ ThisOutlookSession i wklejamy kod:

Private WithEvents TabelkaItems As Items
Private Sub Application_Startup()


On Error Resume Next
Set TabelkaItems = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items


End Sub


Private Sub TabelkaItems_ItemAdd(ByVal Item As Object)


On Error Resume Next
Dim oMail As MailItem
Set oMail = Item
If oMail Is Nothing Then Exit Sub
With oMail


If InStr(1, .Body, "tabelk") > 0 Or _
InStr(1, .Subject, "tabelk") > 0 Then


Open "D:\aaaaaa\rental.txt" For Append As #1
Print #1, "data: " & Format(Now, "YYYY-MM-DD")
Print #1, "temat: " & .Subject
Print #1, "osoba: " & .SenderName
Print #1, "" & .SenderName; .Body
Close #1


End If
End With


Set oMail = Nothing
End Sub

autor: Piotr Czech /KIELCE