E-Mail Versand ohne Outlook?

Hallo,
ich möchte ein Arbeitsblatt so konfigurieren, das man es durch Druck auf einen Button an eine vorher bestimmte E-Mail Adresse verschicken kann. ABER: Das Makro soll nicht über ein externes E-Mail Programm (Outlook etc.) das Arbeitsblatt verschicken.
Gibt es irgendeine Möglichkeit, das das Makro eine eigene SMTP-Formel (keine Ahnung, wie man so etwas nennt *fg*) nutzt, so das die Mail direkt aus Excel verschickt wird?
Quasi - ich bin der Absender der Mail, also werden auch meine SMTP Daten des E-Mail Anbieters eingetragen.
Ich verschicke nämlich ab und zu eine Preisliste an einige Kunden. Und ich plane nun, das die Kunden aus ihrem Excel Programm einfach nur in das entsprechende Arbeitsblatt die Bestellungen eingeben und auf den Button "Send" drücken. Mehr sollen die nich machen brauchen. :-) Da gibt es nämlich einige, die froh sind, wenn sie Excel überhaupt starten und bedienen können.
Hoffentlich gibt es so eine Möglichkeit....
Ich danke Euch schon jetzt.
Gruß
Rico

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Rico,
da hast du dir aber was vorgenommen. Um dem User die Registrierung einer DLL zu ersparen benötigst du VB.net. Darin musst du per API den SMTP - Server und die Mailadresse des Users auslesen (da müsste ich auch erst mal suchen wie das geht), die Tabelle kopieren und temporär speichern. Den Rest würde dann folgende Routine übernehmen:

Imports System.Web.Mail
Public Class Form1
    Inherits System.Windows.Forms.Form
    Friend WithEvents Button1 As System.Windows.Forms.Button
    Private Sub Button1_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles Button1.Click
        Dim oMail As New MailMessage
        ' SMTP-Server (z.B. T-Online)
        SmtpMail.SmtpServer = "mailto.btx.dtag.de"
        With oMail
            ' Absender
            .From = "Ihre EMail-Adresse"
            ' Empfänger
            .To = "Empfänger EMail-Adresse"
            ' Betreff
            .Subject = "Test-Nachricht"
            ' Nachricht
            .Body = "Dies ist eine Test-Nachricht"
            ' Anlagen
            .Attachments.Add(New MailAttachment("Dateiname.xls"))
        End With
        Try
            SmtpMail.Send(oMail)
            MsgBox("Nachricht wurde versandt.")
        Catch oEx As Exception
            MsgBox("Fehler: " & oEx.Message.ToString)
        End Try
    End Sub
    Private Sub InitializeComponent()
        Me.Button1 = New System.Windows.Forms.Button
        Me.SuspendLayout()
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(168, 16)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(96, 40)
        Me.Button1.TabIndex = 0
        Me.Button1.Text = "Button1"
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(292, 273)
        Me.Controls.Add(Me.Button1)
        Me.Name = "Form1"
        Me.ResumeLayout(False)
    End Sub
End Class
#Region " Vom Windows Form Designer generierter Code "
Public Sub New()
    MyBase.New()
    ' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
    InitializeComponent()
    ' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
End Sub
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
    If disposing Then
        If Not (components Is Nothing) Then
            components.Dispose()
        End If
    End If
    MyBase.Dispose(disposing)
End Sub
' Für Windows Form-Designer erforderlich
Private components As System.ComponentModel.IContainer
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
'Sie kann mit dem Windows Form-Designer modifiziert werden.
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
    components = New System.ComponentModel.Container
    Me.Text = "Form1"
End Sub
#End Region
End Class
Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

E-Mail Versand ohne Outlook?

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread