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:

{code lang:vb lines:true hidden:false}Sub sendMail(mTO As String, mSubject As String, mHTML As String)

  Dim cdoConfig, msgOne
 
  Set cdoConfig = CreateObject("CDO.Configuration")
  With cdoConfig.Fields
  .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
  .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
  .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mein.smtperver.net"
  .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "myUser"
  .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "myPW"
  .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
  .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
  .Update
  End With
 
  Set msgOne = CreateObject("CDO.Message")
  Set msgOne.Configuration = cdoConfig
  msgOne.To = mTO
  msgOne.From = "Ich <Ich_AT_meineeMail.net>"
  msgOne.Subject = mSubject
  msgOne.HtmlBody = mHTML
  msgOne.send
End Sub{/code}

Der Aufruf erfolgt so

{code lang:vb lines:true hidden:false}Call sendMail("dich_AT_maineeMail.de","Dies ist ein Test", "<b>Dies ist eine Testmail</b>"){/code}