Se è vero che i valori nel
Campo1 possono essere solo i tre tipi da te presentati e premesso che la tabella contenente il
Campo1 l'ho chiamata
tblEmail basta che, se già non ce ne è uno crei un Modulo, poi in esso inserisci la seguente funzione
Public Function EstraiEmail(strCampo As String) As String
If Left(strCampo, 7) = "E-mail:" Then
Dim intPosRic As Integer
intPosRic = InStr(Mid(strCampo, 9), " ")
EstraiEmail = Mid(strCampo, 9, intPosRic - 1)
ElseIf Left(strCampo, 17) = "Indirizzo e-mail:" Then
EstraiEmail = Mid(strCampo, 19)
ElseIf Left(strCampo, 6) = "E-MAIL" Then
EstraiEmail = Mid(strCampo, 8)
End If
End Function
dopodichè crei una query, che io ho chiamato
qEmail dove inserisci nell'
Sql la segente istruzione
SELECT EstraiEmail([Campo1]) AS Email FROM tblEmail;
quando esegui la query avrai come risultato il solo indirizzo email.