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

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
Tento článek byl archivován. Je nabízen v takovém stavu, v jakém je, a nebude již nadále aktualizován.
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
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.ReflectionModule 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 SubEnd 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.
Odeslat poštu SMTP port CDOSYS

Upozornění: Tento článek je přeložený automaticky

Vlastnosti

ID článku: 313775 - Poslední kontrola: 12/07/2015 08:15:42 - Revize: 3.2

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

  • kbnosurvey kbarchive kbmt kbhowto kbcode kbxml kbmsg KB313775 KbMtcs
Váš názor