BLOGrzeju

wtorek, 5 stycznia 2010

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

poniedziałek, 4 stycznia 2010

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