Jak odeslat e-mailovou zprávu pomocí portu SMTP v Visual Basic .NET pomocí knihovny CDOSYS

Překlady článku Překlady článku
ID článku: 313775 - Produkty, které se vztahují k tomuto článku.
Upozornění: ADO a ADO MD nebyly plně testovány v prostředí Microsoft .NET Framework. Občasné problémy mohou způsobit, zejména v aplikacích založených na službě nebo s více podprocesy aplikací. Postupy uvedené v tomto článku by měla být používána pouze jako dočasné měr během přenesení ADO.NET. Tyto postupy měli použít pouze po provedení akce úplné testování, ujistěte se, že jsou žádné problémy s kompatibilitou. Problémy, které jsou způsobeny pomocí ADO nebo ADO MD tímto způsobem nejsou podporovány. Další informace naleznete v následujícím článku znalostní báze Microsoft Knowledge Base:
840667 Obdržíte neočekávané chyby při použití ADO a ADO MD .NET Framework aplikace
Rozbalit všechny záložky | Minimalizovat všechny záložky

Souhrn

Tento článek popisuje způsob použití objektů dat spolupráci (CDO) pro Windows 2000 (CDOSYS) knihovnu odeslat e-mailové zprávy pomocí portu Simple Mail Transfer Protocol (SMTP) v aplikaci Microsoft Visual Basic .NET.

Další informace

Odeslat e-mailové zprávy pomocí portu SMTP, postupujte takto:
  1. Spusťte aplikaci Visual Studio .NET.
  2. V nabídce soubor přejděte na příkaz Nový a klepněte na příkaz projekt.
  3. V seznamu typů projekty jazyka klepněte na položku Aplikace konzoly.

    Ve výchozím nastavení je vytvořen soubor Module1.vb.
  4. Přidat odkaz na Microsoft CDO pro Windows 2000 Library. Použijte uvedený postup:
    1. V nabídce projekt klepněte na tlačítko Přidat odkaz.
    2. Klepněte na kartu COM najít Microsoft CDO pro Windows 2000 knihovnu a potom klepněte na tlačítko Vybrat.
    3. V dialogovém okně Přidat odkazy klepněte na tlačítko OK.
    4. Pokud se zobrazí výzva ke generování obálky pro vybrané knihovny, klepněte na tlačítko Ano.
  5. Opakujte krok 4 přidejte odkaz 2.5 knihovny Microsoft ActiveX Data Objects.
  6. V okně kódu nahraďte následující kód:
    Imports System.Reflection
    
    Module Module1
    
        Sub Main()
            Dim oMsg As CDO.Message = New CDO.Message()
            Dim iConfg As CDO.Configuration
            Dim oFields As ADODB.Fields
            Dim oField As ADODB.Field
     
            iConfg = oMsg.Configuration
            oFields = iConfg.Fields
    
            oField = oFields("http://schemas.microsoft.com/cdo/configuration/sendusing")
            oField.Value = CDO.CdoSendUsing.cdoSendUsingPort
    
           ' TODO: Replace with the port that you want to use . It must be the same
           ' port that the SMTP server is using.
           oField = oFields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
            oField.Value = 25
    
            ' TODO: Replace with your SMTP server.
            oField = oFields("http://schemas.microsoft.com/cdo/configuration/smtpserver")
            oField.Value = "<SMTP Server>"
    
            oFields.Update()
            oMsg.Configuration = iConfg
    
            oMsg.TextBody = "Test message body."
            oMsg.Subject = "Test SMTP Message Send using port"
            oMsg.From = "from@example.com"
            oMsg.To = "to@example.com"
    
            oMsg.Send()
    
            oMsg = Nothing
            iConfg = Nothing
            oFields = Nothing
            oField = Nothing
        End Sub
    
    End Module
    					
  7. Hledání v kódu pro úkol a upravte kód pro vaše prostředí.
  8. Chcete-li sestavit a spustit program, stiskněte klávesu F5.
  9. Ujistěte se, že byla odeslána e-mailové zprávy a byla přijata.

Vlastnosti

ID článku: 313775 - Poslední aktualizace: 29. listopadu 2007 - Revize: 3.2
Informace v tomto článku jsou určeny pro produkt:
  • Microsoft ActiveX Data Objects 2.5
  • Microsoft Collaboration Data Objects 2.0
  • Microsoft Visual Basic .NET 2003 Standard Edition
  • Microsoft Visual Basic .NET 2002 Standard Edition
Klíčová slova: 
kbmt kbhowto kbcode kbxml kbmsg KB313775 KbMtcs
Strojově přeložený článek
Důležité: Tento článek byl přeložen pomocí software společnosti Microsoft na strojový překlad, ne profesionálním překladatelem. Společnost Microsoft nabízí jak články přeložené překladatelem, tak články přeložené pomocí software na strojový překlad, takže všechny články ve Znalostní databázi (Knowledge Base) jsou dostupné v češtině. Překlad pomocí software na strojový překlad ale není bohužel vždy dokonalý. Obsahuje chyby ve skloňování slov, skladbě vět, nebo gramatice, podobně jako když cizinci dělají chyby při mluvení v češtině. Společnost Microsoft není právně zodpovědná za nepřesnosti, chyby nebo škody vzniklé chybami v překladu, nebo při použití nepřesně přeložených instrukcí v článku zákazníkem. Společnost Microsoft aktualizuje software na strojový překlad, aby byl počet chyb omezen na minimum.
Projděte si také anglickou verzi článku:313775

Dejte nám zpětnou vazbu

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com