• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Internetverbing E-mail verzenden

Status
Niet open voor verdere reacties.
Het werkt, maar FROM zou het adres van de afzender moeten zijn, kan dat? bestaat er een formule in excel of een code in VBA om het adres van de gebruiker te vinden?
Haal die gebruikersnaam en wachtwoord even uit je post. moet ik daar nog iets voor doen of heeft huijb dat al gedaan?


Code: 
With CDOmsg
        Set .Configuration = CDOcnf
        .To = "dierenmakkelijk@gmail.com"
        .CC = ""
        .BCC = ""
        .FROM = SMTPusr
        .Subject = [DIERSOORTEN_SELECTEERBAAR]
        .TextBody = ""
        .Send
 
Dat heeft Huijb al voor je gedaan.
Vul gewoon een afzender adres in bij FROM.
Je merkt snel genoeg of het wel of niet werkt.

Daarna kunnen we kijken hoe je aan dat adres kan komen.
 
Laatst bewerkt:
Hallo edmoor

ik heb een paar testen gedaan
voor de twee eerste FROM was het resultaat deze van plaatje resultaat1
voor de laatste FROM was het resultaat deze van plaatje resultaat2, deze FROM staat als voorbeeld in CDO_Example_Codetest vanrondebruin


Code: 
With CDOmsg
        Set .Configuration = CDOcnf
        .To = "dierenmakkelijk@gmail.com"
        .CC = ""
        .BCC = ""
        '.FROM = "frans.vermonden@gmail.com"
        '.FROM = [TEST]
        .FROM = """Ron"" <ron@something.nl>"
        .Subject = [DIERSOORTEN_SELECTEERBAAR]
        .TextBody = ""
        .Send
    End With
 

Bijlagen

  • resultaat1.jpg
    resultaat1.jpg
    28,5 KB · Weergaven: 23
  • resultaat2.jpg
    resultaat2.jpg
    27,7 KB · Weergaven: 15
Je moet daar gewoon een email adres tussen aanhalingstekens neer zetten.
 
bedoel jij zo

.FROM = "frans.vermonden@gmail.com"

dat heeft geen effekt
 
Dan staat de SMTP server van Gmail dat niet toe en zal de afzender altijd de Gmail gebruikersnaam zijn.
 
goedemorgen edmoor,

spijtig, toch nogmaals bedankt voor uw hulp.
dan gaan wij proberen met outlook, dat zou mij normaal moeten lukken want dat hebben wij in het verleden al eens gedaan.
ik hou U op de hoogte
 
Hallo edmoor
dit heb ik er van kunnen maken en het werkt blijkbaar.
toch nog een paar vragen in het bestand.

in ThisWorkbook staat
Code: 
Private Sub Workbook_Open()
[DEZE_KEER] = Date
If [VERSCHIL_KEER] > 100 And [DIERSOORTEN_SELECTEERBAAR] <> "ORIGINEEL-EXEMPLAAR" _
Then [ZEND_EMAIL] = "JA" Else [ZEND_EMAIL] = "NEE"
End Sub

in Auto_Open staat
Code: 
Public Sub Auto_Open()
If [ZEND_EMAIL] = "JA" Then
'Outlook wordt geopend
Dim OutApp As Object

On Error Resume Next
Set OutApp = GetObject(, "Outlook.Application")
If OutApp Is Nothing Then
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.GetDefaultFolder(6).Display
OutApp.ActiveWindow.WindowState = 1
AppActivate Application.Caption
End If
'Outlook is geopend
On Error GoTo Geen_verbinding
Range("GEBRUIKER") = CreateObject("outlook.application").Session.CurrentUser.Name
[VORIGE_KEER] = [DEZE_KEER]
Set OutMail = OutApp.CreateItem(0)
With OutMail
        .To = "dierenmakkelijk@gmail.com"
        .Subject = [DEZE_KEER] & "£" & [GEBRUIKER] & "§" & [DIERSOORTEN_SELECTEERBAAR] & "$" & [EMAIL_GEBRUIKER]
        .Send
        End With

GoTo Wel_verbinding

Geen_verbinding:
Opslaan_en_sluiten

Wel_verbinding:

'Verdergaan met Auto_Open
End If
End Sub

[EMAIL_GEBRUIKER] in Subject = [DEZE_KEER] & "£" & [GEBRUIKER] & "§" & [DIERSOORTEN_SELECTEERBAAR] & "$" & [EMAIL_GEBRUIKER]
werkt nog niet, vandaar mijn vraag voor hulp

Bedoeling is dat een macro in de blauwe cellen invult wat er nu staat, nu staan daar formules die verwijzen naar kolom C, mogelijk kan dit met een macro zonder gebruik van formule in het werkblad?

nog een bijkomende vraag
Werkt dit op alle computers die e-mail kunnen ontvangen en waarop Excel is geïnstalleerd?
 

Bijlagen

  • Mail van gebruiker 080421.xlsm
    27 KB · Weergaven: 8
Laatst bewerkt:
Het emailadres van de afzender staat nu ook in het onderwerp van de verzonden email
Kan een macro het onderwerp splitsen in 4 cellen?
 

Bijlagen

  • Mail van gebruiker 090421.xlsm
    29,5 KB · Weergaven: 5
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan