PDA

Vollständige Version anzeigen : e-mail adressen aus domain mit Formel erstellen


ServusKathi
06.08.2018, 16:15
Hallöchen,
durch einen Zufall ist mir vor längerer Zeit gelungen E-Mail Adressen aus verlinkten Domain Adressen auszulesen.:rolleyes:

Ich habe alle Daten des Kunden, außer die Mail Adresse.

Wie erhalten ich bzw. mit welcher Formel erlange ich die Mail Adressen?

Beispiel

Spalte A - leer Zelle für Email Adresse
Spalte B - verlinkte Domain Adresse

Vielen Dank.

:) ServusKathi

BoskoBiati
06.08.2018, 16:28
Hi,

=wechseln(a1;Teil(a1;suchen("@";a1);99);"")

ServusKathi
06.08.2018, 16:36
Hallo,
danke aber funktioniert leider nicht.:rolleyes:

Das Programm zeigt mir nur...

Spalte A - und Spalte B

https://www.sanssouci-wien.com #WERT!
https://hotelschlossweikersdorf.at #WERT!
https://www.linsbergasia.at #WERT!
https://www.kothmuehle.at #WERT!
https://www.hotelpritz.at/de #WERT!

BoskoBiati
06.08.2018, 16:46
Hi,

was hast Du erwartet, bei den tollen Infos, die Du gegeben hast?
Mustertabelle mit Musterlösungen!!!

ServusKathi
08.08.2018, 10:57
dann sag mir welche daten zu benötigst, um mir die richtige formel zu sagen

Beispiel

https://www.hotel-weiss.com

Welche Formel gibt es um zur Email Adresse zu kommen?

Gruß
ServusKathi

BoskoBiati
08.08.2018, 11:05
Hi,

Welche Formel gibt es um zur Email Adresse zu kommen?

:rolleyes: :rolleyes: :rolleyes: :rolleyes:

Gar keine! Da gibt es Tausende von Möglichkeiten, mit Info, Buchung usw....

steve1da
08.08.2018, 11:06
Hola,

alleine mit der Domain kommst du nicht automatisch an die Mail Adressen.
Bei dem einen ist es Name.Vorname, beim anderen genau anders herum. Beim nächsten ist es Nachname und erster Buchstabe des Vornamens usw.

Gruß,
steve1da

erpe
08.08.2018, 11:08
Hi,

das ist keine Mailadresse!
Siehe hier: https://www.reiermann.de/hilfe/aufbau-einer-e-mail-adresse/89/

Gruß
Rainer

BoskoBiati
08.08.2018, 11:21
Hi Rainer,

gut erkannt. Deswegen sucht sie ja eine!

ServusKathi
08.08.2018, 12:39
Was ich brauche ist die offizielle Mail Adresse des Hotels.

entweder mit info@... rezeption@... welcome@... hotel@....

Die Domain ist in meinem Fall verlinkt, somit habe ich erhofft mit einer Tastenkombi oder einer Formel zu der passenden Mail Adresse zu gelangen.
Sonst müsste ich über 500 Adressen aus dem Netz kopieren :-(

Von der Mail Adresse zur Domain geht es ja auch...

="www." & RECHTS(A13;LÄNGE(A13)-FINDEN("@";A13))
ODER
="www."&TEIL(A13;FINDEN("@";A13)+1;99999)
ODER
=WENN(ISTZAHL(FINDEN("@";A13));TEIL(A13;FINDEN("@";A13)+1;255);"Keine Domain gefunden !")

warum dann nicht anders rum???

steve1da
08.08.2018, 12:41
Hola,

dann ruf an oder google die Adressen.
Woher soll Excel wissen, welches die richtige Adresse ist? Oder willst du alle ausprobieren und hoffen die richtige ist schon dabei?

Gruß,
steve1da

ServusKathi
08.08.2018, 12:42
nicht so viele wie du denkst.
meistens info@... hotel@... office@... rezeption@...

BoskoBiati
08.08.2018, 12:58
Hi,

buchung@ hast Du vergessen. Du kannst Deine Idee vergessen. Excel ist kein Hellseher!

Mc Santa
08.08.2018, 12:59
Von der Mail Adresse zur Domain geht es ja auch...

[...]

warum dann nicht anders rum???

Weil du Information "verlierst".

Stell dir das so vor, Emails sind Obst- oder Gemüsesorten, also "Apfel", "Birne", "Gurke", "Tomate". Domains sind die Kategorien, also "Obst" oder "Gemüse".
Man kann jetzt eindeutig sagen, dass Apfel ein Obst ist und man kann eindeutig sagen, dass Birne ein Obst ist. Aber rückwärts geht das nicht! Wenn du nur "Gemüse" weißt, dann kannst du nicht sagen, ob es eine Gurke oder eine Tomate ist.

Wie auch andere bereits gesagt haben, fällt auch mir keine Möglichkeit ein, wie man von der Web-Adresse aus eine Email ermitteln kann.

ServusKathi
08.08.2018, 13:07
okay danke fürs Diskutieren

steve1da
08.08.2018, 13:07
Hola,

nicht so viele wie du denkst.
meistens info@... hotel@... office@... rezeption@...

Ok. Du schreibst also auf Verdacht jede Domain mit den 4-5 Begriffen vor dem @-Zeichen an. Dann musst du natürlich im Mailprogramm kontrollieren welche davon gültig ist und welche als ungültig zurückkommt. Das pflegst du dann in der Excel Liste.
Da ist es einfacher die 500 Adressen zu googlen.

Gruß,
steve1da

erpe
08.08.2018, 18:38
Hallo,
du könntest trotzdem eine Mail schicken.
Alle Mails gehen an den Server.
Diejenigen, die nicht (wegen falschgeschriebenem Namen) zugestellt werden können, bleiben dort stehen.
Bei kleineren Unternehmen werden die Mails von Hand bearbeitet und weitergeleitet. Wie es bei Großen Unternehmen ist, kann ich dir nicht sagen.

Versuche mal: *@hotel-weiss.com oder unbekannt@hotel-weiss.com

Gruß
Rainer

Case_Germany
09.08.2018, 03:01
Hallo, :mrcool:

probiere es mal so: :p

Option Explicit
Public Sub Main()
Dim objHTTPRequest As Object
Dim strResult As String
Dim strText As String
Set objHTTPRequest = CreateObject("WinHTTP.WinHTTPrequest.5.1")
objHTTPRequest.SetTimeouts 3000, 3000, 3000, 3000
objHTTPRequest.Open "GET", "https://www.hotelpritz.at/de", False
objHTTPRequest.Send
If objHTTPRequest.Status = 200 Then
strText = objHTTPRequest.ResponseText
strResult = fncMail(strText)
If Trim$(strResult) = "" Then
strResult = "Keine Mailadresse!"
End If
Else
strResult = "Keine Antwort!"
End If
Debug.Print strResult
Set objHTTPRequest = Nothing
End Sub
Private Function fncMail(ByVal strEmail As String) As String
Dim objRegEXP As Object
Dim objMs As Object
Dim objM As Object
Dim strEmailAddress As String
Set objRegEXP = CreateObject("VBScript.RegExp")
With objRegEXP
.Pattern = "([a-zA-Z0-9_-.]+)@[a-z0-9-]+(.[a-z0-9-]+)*(.[a-z]{2,3})"
.IgnoreCase = True
.Global = True
Set objMs = .Execute(strEmail)
If objMs.Count > 0 Then
fncMail = objMs.Item(0).Value
End If
End With
Set objM = Nothing
Set objMs = Nothing
End Function
'https://www.hotel-weiss.com
'https://www.sanssouci-wien.com
'https://hotelschlossweikersdorf.at/contact
'https://www.linsbergasia.at
'https://www.kothmuehle.at
'https://www.hotelpritz.at/de

Bastel noch eine Schleife für alle Adressen drum - Fertig.

Und es gibt auch noch eine Lösung für den Fall, dass auf der Hauptseite keine Mailadresse hinterlegt ist - wie bei "https://hotelschlossweikersdorf.at".

Servus
Case