8 svar · 300 visningar · startad av nitram
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.
Varsågod.