|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
10.12.2010 06:41:09 |
- |
|
|
|
10.12.2010 18:11:28 |
Severus |
|
|
|
13.12.2010 10:37:25 |
- |
|
|
 Aw:Aw:Aw:VBA-Programm zur Erstellung einer Email |
13.12.2010 12:28:24 |
Severus |
|
|
Von:
Severus |
Datum:
13.12.2010 12:28:24 |
Views:
999 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Aw:VBA-Programm zur Erstellung einer Email |
- schrieb am 13.12.2010 10:37:25:
Severus schrieb am 10.12.2010 18:11:28:
Die Emailadresse muß in einer Spalte eingetragen sein. Eine Suche im Adressbuch würde genaue Kenntnisse des MAPI Namespace im Unternehmen voraussetzen. Bei nur wenigen Adressen sollte das kein Problem sein.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Es muß ein Verweis auf die utlook Objektbibliothek gesetzt sein!
Dim olApp As Outlook.Application
Dim olMail As Outlook.MailItem
Dim myREC As Outlook.Recipient
Dim Referenz As Long
Referenz = 0
If Target.Column <> 16 And Target.Column <> 17 Then
Exit Sub
End If
On Error Resume Next
Set olApp = GetObject(, "Outlook.Application")
If Err.Number <> 0 Then
Err.Clear
Set olApp = CreateObject("Outlook.Application")
DoEvents
DoEvents
Referenz = 1
End If
Set olMail = olApp.CreateItem(0): DoEvents
If Target.Column = 16 Then
With olMail
.Subject = Target.Offset(0,-4) & "; " & Target.Offset(0,-3)
.body = Target.Offset(0,-2) & Chr(10) & ""
Set myREC = .Recipients.Add("Email1@Arbeit.com")
myREC.Type = olTo
Set myREC = .Recipients.Add("Email2@Arbeit.com")
myREC.Type = olTo
Set myREC = .Recipients.Add("Email3@Arbeit.com")
myREC.Type = olCC
.send: DoEvents
DoEvents
End With
Else
With olMail
.Subject = Target.Offset(0,-5) & "; " & Target.Offset(0,-4)
.body = Target.Offset(0,-3) & Chr(10) & ""
Set myREC = .Recipients.Add(Target.Offset(0, X) ' Für X die Spaltenverschiebung zur Emailadresse angeben
myREC.Type = olTo
Set myREC = .Recipients.Add("Email2@Arbeit.com")
myREC.Type = olCC
.send: DoEvents
DoEvents
End With
End If
Set myREC = Nothing
Set olMail = Nothing
If Referenz = 1 Then olApp.Quit: DoEvents
DoEvents
Set olApp = Nothing
End Sub
Severus
Leider öffnet sich gar nichts und es kommt auch keine Fehlermeldung! Kann ich das ".send" auch durch ".display" ersetzen? Möchte nicht, dass die Email sofort abgesendet wird, sondern nur angezeigt wird, damit man diese auch noch bearbeiten könnte.
Geht natürlich. Sollte Outlook allerdings nicht laufen müßte auch noch Outlook sichtbar gemacht werden:
Set olApp = CreateObject("Outlook.Application")
olApp.Visible = True
Severus |
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
|
10.12.2010 06:41:09 |
- |
|
|
|
10.12.2010 18:11:28 |
Severus |
|
|
|
13.12.2010 10:37:25 |
- |
|
|
Aw:Aw:Aw:VBA-Programm zur Erstellung einer Email |
13.12.2010 12:28:24 |
Severus |
|
|