Epost i Access

Har en liten fråga.

Har en tabell som fungerar som ett adressregister och i en av kolumnerna som heter epost finns inget mindre än epost adressen.

Är det möjligt att skapa en länk av den epostadress som är inmatad så att man direkt kan klicka på den och t.ex. Outlook öppnas, eller liknande?

Hoppas ni förstår vad jag menar.

Jodå... lägg till en vanlig label och i properties för denna anger du under Format-tabben i fältet Hyperlink address mailto:tjohoo@haha.com

red.
Jag kom just på att jag har ju faktiskt inte en aning om hur du presenterar datat, så jag väntar med att säga hur du ska gå vidare tillväga.

Jag presenterar datat i ett fomulär där det finns ett "textfield" som innehåller epostadressen.

Det blir väl en länk om du anger fätet som Hyperlänk

Jo det blir det, men inte en länk som hoppar över till Outlook t.ex.

Vill att det ska finnas ett "textfield" i formuläret som den valda kunden epostadress står i samt att när man klickar på den så ska man tas vidare till ett epost porgram.

Ska försöka beskriva problemet lite närmare. Vart lite luddigt första gången.

Jag har alltså en tabell som fungerar som ett kundregister. Den tabellen har ett forumlär som man använder då man vill lägga till/ta bort eller ändra personer i registret.

I den formen finns det olika fält som innehåller information från tabellen. I formen kan man sedan klicka sig vidare bland kunderna (gissar på att ni får upp en bild av hur det ser ut)

En av fälten i formen är "Epost". Och efter det så ligger ett textfield som visar den valde personens epostadress. Det är denna adress jag vill att det ska gå och klicka på så Outlook öppnas (mailto: funktionen).
Men frågan är hur gör jag det hela så dynamiskt som möjligt? I tabellen finns epostadressen som den är (ex. noreply@ellusion.se).

Hoppas någon här har svaret på fårgan, eller åtminstonde ett förslag på hur man kan gå tillväga!!

Tack på förhand

Den här lilla funktionen kan kanske hjälpa dig

Public Sub SendEmail()
    Dim objOutlook As Outlook.Application
    Dim objOutlookMsg As Outlook.MailItem
    Dim objOutlookRecip As Outlook.Recipient
    Dim objOutlookAttach As Outlook.Attachment
    
    Set objOutlook = CreateObject("Outlook.Application")
    
    Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
    
    With objOutlookMsg
        Dim i, intRecordCount As Integer
        
        Dim rs As ADODB.Recordset
        Set rs = New ADODB.Recordset
        With rs
            .ActiveConnection = CurrentProject.Connection
            .CursorType = adOpenKeyset
            .LockType = adLockOptimistic
            .Source = "SELECT strEmail FROM tblRegister" [blue]' eller något...[/blue]
            .Open
        End With
        
        intRecordCount = rs.RecordCount
        If intRecordCount = 0 Then
            Set rs = Nothing
            Exit Sub
        End If
        
        rs.MoveFirst
        For i = 1 To intRecordCount
            Set objOutlookRecip = .Recipients.Add(rs("strEmail"))
            objOutlookRecip.Type = olTo
            rs.MoveNext
        Next i
        
        Set rs = Nothing
        
        .Subject = strSubject
        .Body = strMessage
        .Importance = strImportance
        .ReadReceiptRequested = booRequestReceipt
        
        .Send
    End With
    
    Set objOutlookMsg = Nothing
    Set objOutlook = Nothing
Exit Sub
End Sub

Det kan vara så att du måste lägga till en referens till Microsoft Access 9.0 Object Library i VBA.

Ska testa den!

Tack så mycket!

Varsågod.