Przykład funkcji do wysyłania wiadomości e-mail z CDO w ASP

Żmija / by admin / July 04, 2021

Wprowadziłem tę funkcję do ciągłego wysyłania e-maili z formularzy moich stron w ASP, więc wystarczy utworzyć plik i dołączyć go do wysyłania e-maili w ASP.

Funkcja wysyłania poczty (fname sender, femail sender, fmessage, femailpara, fasunto, fadjoint)
PRZY BŁĘDZIE WZNÓW NASTĘPNE

'Wyślij wiadomość tekstową przy użyciu uwierzytelniania na serwerze SMTP

Const cdoSendUsingPickup = 1 'Wyślij wiadomość za pomocą usługi pobierania lokalnego katalogu SMTP
Const cdoSendUsingPort = 2 'Wyślij za pomocą sieci, SMTP przez sieć

Const cdoAnonymous = 0 'Nie uwierzytelniaj
Const cdoBasic = 1 'Uwierzytelnianie podstawowe (zwykły tekst)
Stała cdoNTLM = 2 'NTLM

Ustaw objMessage = CreateObject ("CDO.Message")
obiektWiadomość. Temat = problem
obiektWiadomość. Od = f nazwa nadawcy & ""
obiektWiadomość. To = femailpara
obiektWiadomość. UDW = fbcc
obiektWiadomość. TextBody = fmessage
JEŚLI fadjoint <> „” TO
obiektWiadomość. Dodaj załącznik fadjoint
KONIEC JEŚLI

'== Tutaj skonfigurowano serwer SMTP.

obiektWiadomość. Konfiguracja. Pola. Pozycja _
("

instagram story viewer

https://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'Nazwa lub IP zdalnego serwera SMTP
obiektWiadomość. Konfiguracja. Pola. Pozycja _
("https://schemas.microsoft.com/cdo/configuration/smtpserver") = "lokalny host"

„Typ uwierzytelniania, BRAK, podstawowe (kodowanie Base64), NTLM”
obiektWiadomość. Konfiguracja. Pola. Pozycja _
("https://schemas.microsoft.com/cdo/configuration/authenticate") = cdoPodstawowe

'Twój identyfikator użytkownika na serwerze SMTP
obiektWiadomość. Konfiguracja. Pola. Pozycja _
("https://schemas.microsoft.com/cdo/configuration/sendusername") = "UŻYTKOWNIK"

'Twoje hasło na serwerze SMTP
obiektWiadomość. Konfiguracja. Pola. Pozycja _
("https://schemas.microsoft.com/cdo/configuration/sendpassword") =" HASŁO "

Port serwera (zwykle 25)
obiektWiadomość. Konfiguracja. Pola. Pozycja _
("https://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

'Użyj SSL do połączenia (Fałsz lub Prawda)
obiektWiadomość. Konfiguracja. Pola. Pozycja _
("https://schemas.microsoft.com/cdo/configuration/smtpusessl") = Fałsz

'TIMEOUT w sekundach, maksymalny czas, przez który CDO spróbuje nawiązać połączenie z SMTP
obiektWiadomość. Konfiguracja. Pola. Pozycja _
("https://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

obiektWiadomość. Konfiguracja. Pola. Aktualizacja

'== Zakończ konfigurację SMTP ==

obiektWiadomość. Wysłać

SendEmail = femailpara & ","

Koniec funkcji
%>

Chmura tagów

Żmija

Ocena

Wyświetlenia

Komentarze