Thema Datum  Von Nutzer Rating
Antwort
12.01.2006 14:11:27 Fred
NotSolved
Blau Aw:Absenderdaten bei E-Mail-Versand aus Excel ände
 12.01.2006 16:02:42 Danwe
NotSolved

Ansicht des Beitrags:
Von:
Danwe		 Datum:
12.01.2006 16:02:42		 Views:
2009		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Absenderdaten bei E-Mail-Versand aus Excel ände
Hi Fred,

Ich habe so ein Projekt nun auch schon einige Zeit in Auftrag u. gerade abgeschlossen.
Das Programm kann mit einer Liste verschiedene Daten an mehrere Leute schicken, die in einer Tabelle stehen, die mail kann man selbst "programmieren", schöne Sache.
Ich gehe dabei über Outlook, mich würde interessieren wie du deine Mails losschickst, da sich das ja nicht nach Outlook anhört, denn wenn dies der Fall wäre, würde ja deine Outlookadresse dortstehen, mit der du gerade angemeldet bist.

Der Kern des Programmes der die mails versendet sieht also so aus:

Sub Excel_Serial_Mail()
Dim MyOutApp As Object, MyMessage As Object

On Error GoTo ErrorHandler

txt = txtMail.Text
MailStartEnd 'Mailadressen Anfang u. Ende definieren (in Zeile/Spalte)

'Start der Sendeschleife an alle Empfänger die von den Variablen erfasst werden
For i = StartMailAdr To endeMailAdr

CellstoVar

'Outlook Objekt u. Mail erstellen:
'=================================

Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
'Empfänger
.To = MailAdress 'E-Mail Adresse
'Betreff
.Subject = svBetreff
'Mail Text
.Body = svMail
End With

If optSend.Value = True Then
'Hier wird die Mail angezeigt u. muss manuell gesendet werden:
MyMessage.Send

Set MyOutApp = Nothing 'CreateObject("Outlook.Application")
Set MyMessage = Nothing 'MyOutApp.CreateItem(0)
Application.Wait (Now + TimeValue("0:00:05"))
Else

MyMessage.Display 'Mails werden vor versenden angezeigt

Set MyOutApp = Nothing
Set MyMessage = Nothing 'MyOutApp.CreateItem(0)
End If
Next i

If optSend.Value = True Then
MsgBox "Die E-Mails an die Mitarbeiter wurden versendet und in den Postausgang gelegt.", vbInformation, "E-Mails versendet"
Else
MsgBox "Die E-Mails wurden erfolgreich in Outlook geladen.", vbInformation, "E-Mails geladen"
End If

Exit Sub

ErrorHandler:
MsgBox "Es konnte nicht von Excel aus auf Outlook zugegriffen werden.", vbCritical, "Fehler beim öffnen von MS Outlook"

Exit Sub
End Sub

Allerdings weis ich nun wirklich nicht wie ich einen anderen Absender angeben sollte. Vielleicht mit .from ?
Aber vielleicht ist diese methode ja eine alternative oder Vergleich für dich (mit Outlook). Das Problem ist nur, das Outlook eine Sicherheitsabfrage beim senden auswirft u. zwsichen jeder Mail 5 sek wartet. Das werd ich aber noch umgehen mit einem Freeware Tool.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
12.01.2006 14:11:27 Fred
NotSolved
Blau Aw:Absenderdaten bei E-Mail-Versand aus Excel ände
 12.01.2006 16:02:42 Danwe
NotSolved