privat,Fax-Nummer,Pager-Nummer,Mobil-Tel.-Nr.,Privat: Adresse,Privat: Adresse 2,Privat: Ort,Privat: Bundesland,Privat: PLZ,Privat: Land,Dienstlich: Adresse,Dienstlich: Adresse 2,Dienstlich: Ort,Dienstlich: Bundesland,Dienstlich: PLZ,Dienstlich: Land,Arbeitstitel,Abteilung,Organisation,Webseite 1,Webseite 2,Geburtsjahr,Geburtsmonat,Geburtstag,Benutzerdef. OFile.WriteLine "Vorname,Nachname,Anzeigename,Spitzname,Primäre E-Mail-Adresse,Sekundäre E-Mail-Adresse,Messenger-Name,Tel. Set fso = CreateObject("Scripting.FileSystemObject") Path = path & pathDate & "-Company-Email-Contacts-Thunderbird.csv" Set rs = db.OpenRecordset(SQL, dbOpenDynaset, dbSeeChanges)īigDelim = "," 'Necessary for thunderbird. SQL = "SELECT People.Name, People.Email, People.Telefon_int, People.Telefon_mobint FROM People WHERE People.Email '' AND People.Name NOT LIKE 'zz_%' ORDER BY People.Eintrag DESC" If Not MsgBox("Do you want to export all available contacts to thunderbird?", vbYesNo) = vbYes Then csv file for Mozilla Thunderbird contactsĭim path As String 'User selected Path (Uneditable Textbox with "set path" buttonĭim currentLine As String 'current Line to be written to fileĭim rs As Recordset 'Recordset containing the dataĭim bigDelim As String ' "," Thunderbird CSV Format delimiterĭim db As Database 'Database object for query executionĭim SQL As String 'SQL Query to select the Usersĭim tel As String 'Landline phone of the employeeĭim telMobi As String 'Mobile phone of the employeeĭim Email As String 'Email adress of the employeeĭim Mng As Integer 'Number of records to be processedĭim pathDate As String 'Datediff to current date to append to filename to make files uniqueĭim Name() As String 'Name of the employee The entire thing is written under option explicit. The file generated can be imported into Mozilla Thunderbird contacts to have a contact list of everyone in the company ready. The Table "People" is a ODBC linked database table on a MSSQL 2008 server.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |