E-mailadres met zoekfunctie en werken

[Wallo]

Hallo iedereen, wat ik wil verkrijgen is, ik heb in een cel een zoekfunctie naar een e-mailadres staan, als hij dit adres gevonden heeft kan ik dan het adres ook nog laten werken zodat als je er op klikt het automatisch in een nieuw bericht als adres geplaatst wordt? in bijlage een voorbeeldje
Alvast bedankt

 

[robdgr]

Wijzig de formule in:

=ALS(ISFOUT(VERT.ZOEKEN($A$1;nr;2;ONWAAR));"";HYPERLINK(VERT.ZOEKEN($A$1;nr;2;ONWAAR)))

 

[Wallo]

Dag Rob, alvast bedankt voor de snelle reactie.
Ik heb de formule gewijzigd en als ik er op klik zeg hij 'het opgegeven bestand kan niet geopend worden' wat is er mis?

 

[richard1970]

Beste Wallo,

Maak ervan:
=ALS(ISFOUT(VERT.ZOEKEN($A$1;nr;2;ONWAAR));" ";HYPERLINK("mailto:"&(VERT.ZOEKEN($A$1;nr;2;ONWAAR))))
en bij mij werkt het.
Een hyperlijk is naar een bestand toe, maar er is geen bestand. Je zult dan moeten laten weten dat het om een e-maildes gaat.

Richard

 

[richard1970]

En als je het "mailto:" niet wilt zien, kun je bij de hyperlink nog een alias opgeven via:
=ALS(ISFOUT(VERT.ZOEKEN($A$1;nr;2;ONWAAR));" ";HYPERLINK("mailto:"&(VERT.ZOEKEN($A$1;nr;2;ONWAAR));VERT.ZOEKEN($A$1;nr;2;ONWAAR)))

Richard

 

[Wallo]

Hartelijk bedankt Richard werkt prima!:thumb::thumb::thumb:
Een bijkomend vraagje, het bestand waar deze formule instaat kan je dat in één keer als bijlage mee invoegen als je op het adres klikt?

 

[richard1970]

Hoi,

Helaas lukt me dat niet via de functies en functionaliteiten van Excel.
Het kan wel via VBA, maar dan verwijs ik naar de site van Ron de Bruin:

http://www.rondebruin.nl/tips.htm

Het enige dat me nog lukt is de topic toevoegen:

=ALS(ISFOUT(VERT.ZOEKEN($A$1;nr;2;ONWAAR));" ";HYPERLINK("mailto:"&(VERT.ZOEKEN($A$1;nr;2;ONWAAR))[COLOR="Red"]&"?subject=test"[/COLOR];VERT.ZOEKEN($A$1;nr;2;ONWAAR)))

Groeten,
Richard

 

[Wallo]

Bedankt Richard, ik ga mijn beste engels bovenhalen en proberen te ontcijferen hoe de vork in de steel zit.:thumb::thumb::thumb:

 

[Wallo]

Richard, ik heb iets gevonden bij Ron De Bruin maar dit is voor excel 2007, hij verzend het maar geeft telkens aan dat het mailadres niet juist is. Kan jij misschien helpen of weet je waar ik help kan vinden? Alvast bedankt
Groetjes Wallo ik voeg de macro bij

Sub Mail_Every_Worksheet()
'Working in 97-2010
Dim sh As Worksheet
Dim wb As Workbook
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim TempFilePath As String
Dim TempFileName As String
Dim I As Long

TempFilePath = Environ$("temp") & "\"

If Val(Application.Version) < 12 Then
'You use Excel 97-2003
FileExtStr = ".xls": FileFormatNum = -4143
Else
'You use Excel 2007-2010
FileExtStr = ".xlsm": FileFormatNum = 52
End If

With Application
.ScreenUpdating = False
.EnableEvents = False
End With

For Each sh In ThisWorkbook.Worksheets
If sh.Range("b13").Value Like "?*@?*.?*" Then

sh.Copy
Set wb = ActiveWorkbook

TempFileName = "Sheet " & sh.Name & " of " _
& ThisWorkbook.Name & " " _
& Format(Now, "dd-mmm-yy h-mm-ss")

With wb
.SaveAs TempFilePath & TempFileName & FileExtStr, _
FileFormat:=FileFormatNum
On Error Resume Next
For I = 1 To 3
.SendMail sh.Range("b13").Value, _
"This is the Subject line"
If Err.Number = 0 Then Exit For
Next I
On Error GoTo 0
.Close SaveChanges:=False
End With

'Delete the file you have send
Kill TempFilePath & TempFileName & FileExtStr

End If
Next sh

With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub