Hornshoj: Ja, jeg har en masse emailadresser og IKKE emails med indhold.. Men jeg tror vist ikke det kan lade sig gøre at lave en access database om til en adressebog som kan bruges i Outlook....
Jo... du skal bare lave en activex der køre det "bag din ryg". Ellers må du importere dem. Er det fordi du SKAL importere dem eller fordi du vil bruge outlook til at sende email...?
Hornshoj: Det er fordi jeg hellere vil bruge outlook til at sende emails til dem på min mailingliste i stedet for en online asp side, som ikke har de samme muligheder som outlook (html emails osv).
De besøgende jeg så har på mit site, skal så kunne registrere deres email-adresse - og dem vil jeg så have over i outlook, så jeg kan sende en mail til dem alle sammen på en gang.
Jamen så kan det da nemt lade sig gøre! Du laver bare en exportfil fra asp som du downloader og importere i outlook.
Her er en funktion: Private Function GetRSRows(ByVal rs As ADODB.Recordset, ByVal strHeader, ByVal chDelimiter As String) As String Dim strPrint As String Dim avarRecords As Variant Dim fldloop As Field Dim intNumRecords As Integer Dim intNumFields As Integer
If strHeader <> "" Then strPrint = strHeader Else For Each fldloop In rs.Fields strPrint = strPrint & fldloop.Name & chDelimiter Next fldloop End If strPrint = strPrint & vbCrLf intNumRecords = rs.RecordCount avarRecords = rs.GetRows(intNumRecords) For intNumRecords = 0 To UBound(avarRecords, 2) For intNumFields = 0 To UBound(avarRecords, 1) strPrint = strPrint & avarRecords(intNumFields, intNumRecords) & chDelimiter Next intNumFields strPrint = strPrint & vbCrLf Next intNumRecords GetRSRows = strPrint End Function
Funktionen tager 3 parametre: 1 stk recordset med de felter du vil have i din exportfil (feks. navn,adresse,email) 1 stk header (bare lad den være hvis du ikke vil have overskrift på dine felter). 1 stk. delimiter (skriv et ',' eller ';') alt efter hvad du ønsker).
Dim oRS Dim strSQL Dim KommaTekst Set oRS= Server.CreateObject("adodb.recordset") strSQL = "SELECT Navn,Adresse,Email FROM EmailTabel" oRS.Open strSQL KommaTekst = GetRSRows(oRS,"navn,adresse,email",";") If KommaTekt <> "" Then 'Put i fil og download Else 'Fejl! End If
Lav først en export fil fra Outlook, så du kan se hvordan filen skal laves. Når funktionen er færdig, skal du bare placere indholdet i en fil som du downloader (brug filsystemobject).
Jo, selvfølgelig kan man det. I menuen Importer/Eksporter skal du vælge Importer fra et andet program eller fil. Klik derefter på Kommaseparerede værdier.
Sådan du gamle. Men jeg kan jo ikke lave det hele for dig... Jeg har desværre ikke tid. Jeg havde bare lige denne funktion...!
Jeg har lige fundet et program (EmailUnlimited) som kan gøre det hele for mig, hvis jeg bare gemmer oplysningerne fra brugeren i en access database.... skide smart program faktisk..
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.