[Excel VBA] Port Abfrage

  • Excel

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von Blaupunkt79.

    [Excel VBA] Port Abfrage

    Hallo Zusammen,

    habe ein Programm, welches u.a. Mails per Excel versendet. Hierbei kann der Absender entsprechend konfiguriert werden. Jetzt möchte ich, dass von Excel aus geprüft werden kann, ob der gewählte SMTP Port "offen" ist, ähnlich folgender Webseite:

    portchecker.co/

    Kann mir dabei jemand helfen?

    Gruß

    Schau dir mal Post #6 hier an: vbaexpress.com/forum/showthrea…ort-is-up-from-VBA-(Excel)

    Du brauchst das Winsock-Steuerelement (gibt es das in Excel?).
    Besucht auch mein anderes Forum:
    Das Amateurfilm-Forum

    Funktioniert auch nur mit WINAPI (winsock dll):

    Spoiler anzeigen
    ​

    Visual Basic-Quellcode

    1. ​
    2. 'socket stuff
    3. Private Declare Function socket Lib "wsock32.dll" (ByVal af As Integer, ByVal typesock As Integer, ByVal protocol As Integer) As Integer
    4. Private Declare Function bind Lib "wsock32.dll" (ByVal s As Integer, addr As InputSocketDescriptor, ByVal namelen As Integer) As Integer
    5. Private Declare Function connect Lib "wsock32.dll" (ByVal sock As Integer, sockstruct As InputSocketDescriptor, ByVal structlen As Integer) As Integer
    6. Private Declare Function htons Lib "wsock32.dll" (ByVal a As Integer) As Integer
    7. Private Declare Function closesocket Lib "wsock32.dll" (ByVal sock As Integer) As Integer
    8. Private Declare Function inet_addr Lib "wsock32.dll" (ByVal co As String) As Long
    9. 'wsastuff
    10. Private Declare Function WSAStartup Lib "wsock32.dll" (ByVal a As Integer, B As WSAdata_type) As Integer
    11. Private Declare Function WSACleanup Lib "wsock32.dll" () As Integer
    12. 'const
    13. Private Const SOCKET_ERROR = -1
    14. Private Const INVALID_SOCKET = -1
    15. Private Const AF_INET = 2
    16. Private Const SOCK_STREAM = 1
    17. Private Const AF_UNSPEC = 0
    18. Private Const PF_INET = 2
    19. 'types
    20. Private Type InputSocketDescriptor
    21. Family As Integer
    22. Port As Integer
    23. Address As Long
    24. Fill As String * 8
    25. End Type
    27. Private Type WSAdata_type
    28. wVersion As Integer
    29. wHighVersion As Integer
    30. szDescription As String * 257
    31. szSystemStatus As String * 129
    32. iMaxSockets As Integer
    33. iMaxUdpDg As Integer
    34. lpVendorInfo As String * 200
    35. End Type
    37. Private WSAdata As WSAdata_type
    38. Private CallSocket As InputSocketDescriptor
    40. Function CreateSocket(ByRef TCPSocket As Long, ByVal TCPPort As Long)
    41. 'Get a socket/handle from Winsock
    42. TCPSocket = socket(PF_INET, SOCK_STREAM, AF_UNSPEC)
    43. If TCPSocket = INVALID_SOCKET Then
    44. CreateSocket = False
    45. Exit Function
    46. End If
    47. 'Now bind the socket
    48. 'We pass this structure during a bind.
    49. CallSocket.Family = AF_INET
    50. CallSocket.Port = htons(TCPPort)
    51. CallSocket.Address = 0
    52. CallSocket.Fill = " "
    54. Status = bind(TCPSocket, CallSocket, Len(CallSocket))
    55. If Status = SOCKET_ERROR Then
    56. CreateSocket = False
    57. Exit Function
    58. End If
    59. CreateSocket = True
    61. End Function
    63. Function ConnectSocket(ByRef TCPSocket As Long, ByVal HostAddress As Long, ByVal TCPPort As Long)
    65. CallSocket.Family = AF_INET
    66. CallSocket.Port = htons(TCPPort) 'converts byte order from PC to Network
    67. CallSocket.Address = HostAddress
    68. CallSocket.Fill = " "
    69. 'connect to socket
    70. Status = connect(TCPSocket, CallSocket, Len(CallSocket))
    71. If Status = SOCKET_ERROR Then
    72. ConnectSocket = False
    73. Exit Function
    74. End If
    75. ConnectSocket = True
    76. End Function
    78. Function TestIpPort(IP As String, Port As Integer)
    79. Dim s As Long
    80. Dim RequestedVersion As Integer
    81. Dim Status As Integer
    82. RequestedVersion = &H101 ' Version 1.1
    83. Status = WSAStartup(RequestedVersion, WSAdata) 'start usage of winsock
    84. If Status Then
    85. MsgBox ("Failed to startup Winsock")
    86. Exit Function
    87. End If
    88. If CreateSocket(s, 0) Then
    89. If ConnectSocket(s, inet_addr(IP), Port) Then
    90. MsgBox ("Port " & Port & " on " & IP & " is open")
    91. Status = closesocket(s) 'close socket
    93. Else
    94. MsgBox ("Cant connect to " & IP & " and Port " & Port)
    95. End If
    96. End If
    97. WSACleanup 'for every startup you need one cleanup
    98. End Function
    100. 'Aufruf wäre dann
    102. TestIpPort "192.168.0.1", 25



    LG
    Das ist meine Signatur und sie wird wunderbar sein!

    Danke für die Rückmeldungen, ich habs jetzt etwas "einfacher" gelöst, indem ich die Möglichkeit einer Testmail eingebaut habe. Auch kann der User nun entscheiden, ob er via SMTP oder via Outlook die Mails versenden möchte, beide Optionen kann er nun mit der besagten Testmail prüfen. Bekommt Excel keine Verbindung o.ä. erfolgt eine entsprechende Fehlermeldung, dass die Konfiguration fehlerhaft ist.

Facebook
Telefonspende