Mail versenden, ohne E-Mail-Konto. Das ist mit VBA einfach möglich.

Im ersten Schritt müsst Ihr den Verweis Microsoft CDO for Windows 2000 Libary setzen.

 Hier das Modul:

Show/Hidden vb code

View source
  1. Sub sendMail(mTO As String, mSubject As String, mHTML As String)
  2.  
  3.   Dim cdoConfig, msgOne
  4.  
  5.   Set cdoConfig = CreateObject("CDO.Configuration")
  6.   With cdoConfig.Fields
  7.   .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
  8.   .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
  9.   .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mein.smtperver.net"
  10.   .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "myUser"
  11.   .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "myPW"
  12.   .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
  13.   .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
  14.   .Update
  15.   End With
  16.  
  17.   Set msgOne = CreateObject("CDO.Message")
  18.   Set msgOne.Configuration = cdoConfig
  19.   msgOne.To = mTO
  20.   msgOne.From = "Ich <Ich_AT_meineeMail.net>"
  21.   msgOne.Subject = mSubject
  22.   msgOne.HtmlBody = mHTML
  23.   msgOne.send
  24. End Sub

Der Aufruf erfolgt so

Show/Hidden vb code

View source
  1. Call sendMail("dich_AT_maineeMail.de","Dies ist ein Test", "<b>Dies ist eine Testmail</b>")